Размещено 4 года назад по предмету
Информатика
от biologia79
2. Что выполняют фрагменты программ:
1. nFor i:=1 to 10 do readln(A[i]);
2. nFor i:=1 to 10 do A[i]:=random(1000)-500;
3. nFor i:=1 to 10 do writeln(A[i]);
4. nFor i:=1 to 10 do A[i]:=0;
5. For i:=1 to 10 do if A[i]<0 then B[i]:=abs(A[i]);
6. nj:=1;
For i:=1 to 10 do begin
B[j]:=A[i]*A[i];
B[j+1]:=A[i]*A[i]*A[i];
j:=j+2;
end;