Question

Помогите пожалуйста! По программированию Pascal ABC
1. В двумерном массиве действительных чисел найти нечетных элементов меньших 40 остаток от деления на 5 которых равен 2
2.заменить четвёртый элемент одномерного массива на сумму его чётных элементов.

Answer 1

1.
Program TuKpa6;const n=5;const m=5;varA:array[1..n,1..m] of integer;i,j:integer;BEGINfor i:=1 to n do  begin    for j:=1 to m do      begin        a[i,j]:=10*i+j;      end;  end;writeln('HaIIgeHo:');for i:=1 to n do  begin    for j:=1 to m do      begin        if (odd(a[i,j])) and (a[i,j]<40) and (a[i,j] mod 5 = 2) then          begin            writeln('a[',i,j,']=',a[i,j]);          end;      end;  end;writeln('koHeII,');END.

2.
Program TuKpa6;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;for i:=1 to n do {забиваем массва}  begin  a[i]:=i;  end;for i:=1 to n do {суммируем чётные элементы}  begin    if not (odd(a[i])) then      begin        sum:=sum+a[i];      end;  end; writeln('HaIIgeHo:');for i:=1 to n do  begin    if i=4 then      begin        a[i]:=sum;        writeln('a[',i,']=',a[i]);      end;  end;writeln('koHeII,');END.

e4f2c82b330afdcb2d4749f85a2075d6.pas

6d6fa4a0bbed095d3a08599e1e573576.pas

Answer 2

Вторая программа неверная. Вычисляет совсем не то что требуется

Answer 3

а точняк, шя исправим

Answer 4

исправлено