Народ помогите. Вот задание: "
Сформировать массив А(10х10) получить сумму кратных 5. Заменить в массиве P-ую строку 0(нулевым)"
нужно составить программу я сделал первую часть а вот со второй вообще незнаю как делать ): помогите ):
И посмотрите правильно я первую часть сделал.
Program
Uses crt;
Var
i,j: Integer;
a:array[1..10, 1..10] of real
s real;
begin
writeln(‘massiv a’)
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=round(40*random-20);
write(a[i,j]: 5:0);
end;
writeln;
end;
Writeln (‘summa kratnix 5’);
For i=1 to 10 do
begin
For j=1 to 10 do
begin
If ((a[i,j] mod 5)=0) then s:=s+a[i,j];
writeln('сумма кратных 5, s=’ s: 5:2);
end;