Дан массив А размерностью 15. Заполните его случайными числами от 0 до 30. Выведите на экран элементы массива и их сумму. Pascal
Ответы
Ответ дал:
1
program fantscrin;
const n =15;
var i,s:integer;
a: array [1..n] of integer;
begin
for i:=1 to n do
a[i]:=random(30);
for i:=1 to n do
write(a[i], ' ');
writeln('');
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln(s);
end.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
2 года назад
7 лет назад