Какое число нарисовано? Переведите числа в строках из десятичной системы счисления в двоичную, закрасьте ячейки, содержащие 1. Расположите циры двоичного числа по разрядам, указанным внизу таблицы 9
1. var i,summa: integer; A: array [1..11] of integer; begin summa:=0; randomize; write('Массив: '); for i:=1 to 11 do begin A[i]:=random(36)-10; write(A[i],' '); end; writeln; for i:=1 to 11 do if A[i] mod 5 = 0 then summa:=summa+A[i]; writeln('Сумма чисел кратных 5= ',summa); end. 2. var i,s: integer; A: array [1..6] of integer; begin s:=0; randomize; write('Массив: '); for i:=1 to 6 do begin A[i]:=random(58)-4; write(A[i],' '); end; writeln; for i:=1 to 6 do if A[i] < 7 then s:=s+1; writeln('Количество элементов меньших 7: ',s); end.
var i,summa: integer;
A: array [1..11] of integer;
begin
summa:=0;
randomize;
write('Массив: ');
for i:=1 to 11 do begin
A[i]:=random(36)-10;
write(A[i],' ');
end;
writeln;
for i:=1 to 11 do
if A[i] mod 5 = 0 then summa:=summa+A[i];
writeln('Сумма чисел кратных 5= ',summa);
end.
2.
var i,s: integer;
A: array [1..6] of integer;
begin
s:=0;
randomize;
write('Массив: ');
for i:=1 to 6 do begin
A[i]:=random(58)-4;
write(A[i],' ');
end;
writeln;
for i:=1 to 6 do
if A[i] < 7 then s:=s+1;
writeln('Количество элементов меньших 7: ',s);
end.
static void Main(string[] args)
{
int N = 7;
int[,] mas = new int[N, N];
for (int i = 0; i < N; i++)
{
for (int j = 0; j < N; j++)
{
if (j == 0 || j == N - 1)
{
mas[i, j] = 4;
}
else if (i + j == N - 1)
{
mas[i, j] = 4;
}
else
{
mas[i, j] = 0;
}
}
}
for (int i = 0; i < N; i++)
{
for (int j = 0; j < N; j++)
{
Console.Write(String.Format("{0,3}", mas[i, j]));
}
Console.WriteLine();
}
Console.ReadKey();
}
Объяснение:
По скриншоту, я понял, это квадратный массив 7x7, если размерность другая - измените переменную N.