1.Создать массив из 20-ти случайных чисел(значения от 0 до 100).Вывести на экран значения массива строкой. Вычислить сумму элементов массива!!!!!! 2. Создать массив из 20-ти случайных чисел(значения от 0 до 100).Вывести на экра...
1.Создать массив из 20-ти случайных чисел(значения от 0 до 100).Вывести на экран значения массива строкой. Вычислить сумму элементов массива!!!!!! 2. Создать массив из 20-ти случайных чисел(значения от 0 до 100).Вывести на экран значения массива строкой. Вычислить количество элементов массива!!!!
Гость
Ответ(ы) на вопрос:
Гость1.
Program Program1;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
k:=k+a[i];
end;
Writeln('Сумма элементов массива: ',k);
end.
2.
Program Program2;
Var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
for i:=1 to 20 do
a[i]:=random(101);
k:=0;
for i:=1 to 20 do
begin
write(a[i],', ');
inc(k);
end;
Writeln('Количество элементов массива: ',k);
end.
Не нашли ответ?
Похожие вопросы