Помогите решить задачу. очень надо.

0 голосов
35 просмотров

Помогите решить задачу. очень надо.


image

Информатика (18 баллов) | 35 просмотров
Дан 1 ответ
0 голосов

3) b[51] - данный элемент равен 0


var a,b: array [1..100] of integer;

n: integer;

begin

for n:=1 to 100 do begin

a[n]:=n-50;

writeln('a[',n,'] = ',a[n]);

end;

for n:=1 to 100 do begin

b[101-n]:=a[n]*a[n];

writeln('b[',101-n,'] = ',b[101-n]);

end;

end.


Мини-программа на Паскале для проверки

(552 баллов)