slozhenie_el-ov_massiva (1)


program ololo;
uses crt;
const n=10;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,z:integer;
beginclrscr;
for i:= 1 to n do
begina[i]:=random(10);
write(a[i]:2);
end;
writeln;
for i:= 1 to n do
beginb[i]:=z + a[i];
z:=z + a[i];
end;
for i:=1 to n do
write(b[i]:3);
end.

Приложенные файлы

  • docx 15338108
    Размер файла: 14 kB Загрузок: 0

Добавить комментарий