1. Составьте программу вычисления в массиве А (10), заполненном случайными числами из интервала [-1,6], суммы всех элементов массива.2. Дана фраза. Определить, сколько в ней предложений.
1. Составьте программу вычисления в массиве А (10), заполненном случайными числами из интервала [-1,6], суммы всех элементов массива.
2. Дана фраза. Определить, сколько в ней предложений.
Гость
Ответ(ы) на вопрос:
Гость1)
var
a:array[1..10] of integer;
s:integer;
i:byte;
begin
randomize;
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(7)-1;
writeln ('a[',i,']=',a[i]);
s:=s+a[i];
end;
writeln ('Сумма элементов=',s);
end.
Не нашли ответ?
Похожие вопросы