Pascal

[Dim@Z]

Народ помогите. Вот задание: "
Сформировать массив А(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;

[геннадий]

Народ помогите. Вот задание: "
Сформировать массив А(10х10) получить сумму кратных 5. Заменить в массиве P-ую строку 0(нулевым)"
нужно составить программу я сделал первую часть а вот со второй вообще незнаю как делать ): помогите ):
И посмотрите правильно я первую часть сделал.

Если я верно понял, в массив идут случайные числа от -20 до 20, НЕ ЦЕЛЫЕ. В таком случае искать кратность 5 некорректрно.

Надо из случайного числа отбросить дробную часть или оставить целую.
Как определяется кратность 5, это увидел.
В какую ячейку копятся кратные 5, это есть. Начальное значение этой ячейки?
Дальше закруглить оба цикла, затем выдача s.
И самое интересное: запустить программу на счет. Пока прога не работала ни разу, она вообще ничто.

Сделай первую часть, чтобы она заработала. Дописывать прогу можно после.

[BopoH]

Program L;
Uses crt;
Var
i,j,s,n: Integer;
a:array[1..10, 1..10] of integer;
begin
writeln('Массив 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);
end;
writeln;
end;
writeln;
s:=0;
For i:=1 to 10 do
For j:=1 to 10 do
If a[i,j] mod 5=0 then s:=s+a[i,j];
writeln('сумма кратных 5',s:5);
write('введите номер строки которую нужно заменить ');readln(n);
for j:=1 to 10 do
a[n,j]:=0;
writeln('Измененный массив A');
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j]:5);
writeln;
end;
end.

[Dim@Z]

Program L;
Uses crt;
Var
i,j,s,n: Integer;
a:array[1..10, 1..10] of integer;
begin
writeln('Массив 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);
end;
writeln;
end;
writeln;
s:=0;
For i:=1 to 10 do
For j:=1 to 10 do
If a[i,j] mod 5=0 then s:=s+a[i,j];
writeln('сумма кратных 5',s:5);
write('введите номер строки которую нужно заменить ');readln(n);
for j:=1 to 10 do
a[n,j]:=0;
writeln('Измененный массив A');
for i:=1 to 10 do
begin
for j:=1 to 10 do
write(a[i,j]:5);
writeln;
end;
end.

Спасибо помог вообще, слушай а не можешь помоч составить блок-схему?

[BopoH]

Ну не знаю как у вас...а мы вот так их делаем

[Dim@Z]

Ну не знаю как у вас...а мы вот так их делаем

Да у меня половина такая же, я просто концовку не знал как, спасибо!

[BopoH]

Да не за что

[BopoH]

вот он скрин

[[Tony]*PaRKeR*]

У кого нибудь есть литература по паскалю? ("Для начинающих" и т.п.)

[Zorex]

У кого нибудь есть литература по паскалю? ("Для начинающих" и т.п.)

на самбе посмотри я оттуда раньше скачивал.

[[Tony]*PaRKeR*]

Нашел с инета, может кому нибудь понадобится.