ДАЮ 70 БАЛЛОВ
2. Создать двумерный массив В размерностью 4*3, состоящий из целых чисел в диапазоне от -5 до 5. Вывести массив на экран. Найти сумму его четных элементов.
3. Создать двумерный массив С размерностью 5*5, состоящий из целых чисел в диапазоне от -10 до 10. Вывести массив на экран. Найти сумму элементов в последнем столбце. Найти количество четных элементов в третьей строке.
4. В массиве С(5*3) целых чисел из диапазона [-5;12] вывести сумму нечетных элементов четвертой строки.
Ответы
Задание 2:
program prog;
var
b:array[1..4,1..3] of integer;
i,j,sum:integer;
begin
sum:=0;
for i:=1 to 4 do begin
for j:=1 to 3 do begin
b[i,j]:=random(-11)+5;
write(b[i,j]:2, ' ');
if b[i,j] mod 2 = 0 then sum:=sum+b[i,j];
end;
writeln();
end;
write('Сумма всех чётных чисел массива равна: ', sum);
end.
Задание 3:
program prog;
var
c:array[1..5,1..5] of integer;
i,j,sum,count:integer;
begin
sum:=0;
count:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
c[i,j]:=random(-21)+10;
write(c[i,j]:3, ' ');
if j=5 then sum:=sum+c[i,j];
if (i=3) and (c[i,j] mod 2 = 0) then count:=count+1;
end;
writeln();
end;
writeln('Сумма элементов последнего столбца массива равна: ', sum);
writeln('Количество всех чётных чисел в третьей строке массива равна: ', count);
end.
Задание 4:
program prog;
var
c:array[1..5,1..3] of integer;
i,j,sum:integer;
begin
sum:=0;
for i:=1 to 5 do begin
for j:=1 to 3 do begin
c[i,j]:=random(-18)+12;
write(c[i,j]:3, ' ');
if (i=4) and (c[i,j] mod 2 <> 0) then sum:=sum+c[i,j];
end;
writeln();
end;
writeln('Сумма всех нечётных чисел в четвёртой строке массива равна: ', sum);
end.