Вопрос по информатике:
Program1.pas(17) : Нельзя изменять значение переменной цикла внутри этого цикла
Помогите исправить ошибку .
Program Lin_10;
uses crt ;
type mas = array [1..9,1..9] of integer ;
var D,b:mas;
i,j,t,min:integer ;
Begin
clrscr;
Randomize ;
for i:=1 to 9 do begin
for j:=1 to 9 do begin
D[i,j]:=random(30)-60;
Write(D[i,j]:4);
End;
Writeln;
Writeln(' Задача 10_1 ') ;
for i:=1 to 9 do
for j:=1 to 9 do begin
min:=D[i,j];
End;
If min>D[i,j] then min:=[i,j];
End;
Writeln ;
Writeln('Min=',min);
Writeln(' Задача 10_2 ');
for i:=1 to 9 do begin
for j:=1 to 9 do begin
If (D[i,j] mod 2) = 0 then
D[i,j]:=0 ;
Write(D[i,j]:4);
End; Writeln;
Writeln(' Задача 10_3 ');
t:=1;
for j:=1 to 9 do begin
i:=j;
B[t]:=D[i,j];
t:=t+1;
u:=t; End;
For t:=1 to u-5 do begin
Write (D[t]:4);
End;
Writeln;
Writeln(' Задача 10_4 ');
Writeln(' Задача 10_5 ');
sum:=0;
for i:=1 to 9 do
For j:=1 to 9 do begin
If D[i,j] mod 3 = 0 then
Sum:=sum+D[i,j];
End;
Write('sum=',sum);
Readln;
End;
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.06.2017 18:54
- Информатика
- remove_red_eye 1327
- thumb_up 50
Ответы и объяснения 1
Program Lin_10;
{uses crt ;}
const n = 9;
var D:array [1..n,1..n] of integer ;
B:array[1..100] of integer;
i,j,t,k:integer ;
average:real;
Begin
Writeln(' Задача 10 ') ;
Randomize ;
for i:=1 to n do begin
for j:=1 to n do begin
D[i,j]:=random(60)-30;
Write(D[i,j]:4, ' ');
End;
Writeln;
end;
Writeln(' Задача 10_1 ') ;
average:=0;
k:=0;
for i := 1 to n do begin
j := n+1-i;
If D[i,j] > 0 then begin
average :=average + D[i,j];
k:=k+1;
End;
End;
Writeln('average=',average/k);
Writeln ;
Writeln(' Задача 10_2 ');
for i:=1 to n do begin
for j:=1 to n do begin
If D[i,j] < -5 then
D[i,j]:=0 ;
Write(D[i,j]:4);
End;
Writeln;
End;
Writeln(' Задача 10_3 ');
t:=0;
for i:=1 to n do
for j:=1 to n do
If j mod 3=0 then begin
t:=t+1;
B[t]:=D[i,j];
Write(B[t]:4);
end;
Writeln;
Writeln(' Задача 10_4 ');
t:=0;
for i:=1 to n do
for j:=1 to n do
If D[i,j] < 0 then
t:=t+1;
Writeln(t);
Writeln;
Writeln(' Задача 10_5 ');
for i:=1 to n do begin
t:=0;
for j:=1 to n do
If D[i,j] < 0 then
t:=t+1;
Writeln(i,' = ',t);
End;
Readln;
End.
- 05.06.2017 00:19
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.