Предмет: Информатика, автор: aseu

программа, которая создает в отдельном случайный массив

Ответы

Автор ответа: Аноним
0

 

 

 

program jfe3;

const n=10; {Это будет кол-во элементов массива}

var a:array [1..n] of integer; i,s:integer;

begin

 

randomize

for i:=1 to n do begin

a[i]:=random(100); {элемент выбирается случайно от 0 до 100}

s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}

end;

for i:=1 to n do

writeln(a[i],' '); {показать сам массив}

writeln(s); {показать сумму}

readln; {чтобы окно сразу не закрывалось}

end.

 

 

 

 

 

 так?

Автор ответа: 8Анюта8
0

 

program jfe3;

const n=10; {Это будет кол-во элементов массива}

var a:array [1..n] of integer; i,s:integer;

begin

for i:=1 to n do begin

a[i]:=random(100); {элемент выбирается случайно от 0 до 100}

s:=s+a[i]; {Когда эл. присвоился, его значение плюсуется к общ сумме}

end;

for i:=1 to n do

writeln(a[i],' '); {показать сам массив}

writeln(s); {показать сумму}

readln; {чтобы окно сразу не закрывалось}

end.

 

Похожие вопросы
Предмет: Другие предметы, автор: zanelmametekova
Предмет: Математика, автор: Аноним