Предмет: Информатика,
автор: TanyaGriffe
помогите пожалуйста! Создать массив А из десяти целых чисел, принадлежащих промежутку (0;50) выведите полученный результат на экран. Подсчитать сумму элементов (работа в паскаль). Я просто тему пропустила, а объяснять не хотят :(
Ответы
Автор ответа:
0
var a :array [1..10] of integer; i, sum :integer;
begin
randomize; for i:= 1 to 10 do a[i]:= random(50); sum:= 0; for i:= 1 to 10 do sum:= sum + a[i]; writeln(sum);
end.
begin
randomize; for i:= 1 to 10 do a[i]:= random(50); sum:= 0; for i:= 1 to 10 do sum:= sum + a[i]; writeln(sum);
end.
Интересные вопросы
Предмет: Математика,
автор: 4n74s0z711na
Предмет: Литература,
автор: duisebekbeksultan314
Предмет: Другие предметы,
автор: kdubrovina11
Предмет: Химия,
автор: yanamus1999