1. Массив из 10 элементов, вводим их с клавиатуры. Вывести на экран все положительные элементы и вычислить их сумму2. Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (В массиве 20 элементов, ...
1. Массив из 10 элементов, вводим их с клавиатуры. Вывести на экран все положительные элементы и вычислить их сумму
2. Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (В массиве 20 элементов, заполнен случайными числами.)
3. Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 . Вывести на экран, посчитать количество чисел, меньших 25
Гость
Ответ(ы) на вопрос:
Гость1
var
a:array[1..10]of integer;
s,i:integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
if a[i]>0 then
begin
s:=s+a[i];
write(a[i],' ');
end;
writeln;
writeln('Сумма: ',s);
end.
2
var
a:array[1..20]of integer;
s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
write('Искомые элементы: ');
for i:=1 to 20 do
if i mod 2=1 then
begin
s:=s+a[i];
write(a[i],' ');
end;
writeln;
writeln('Их сумма: ',s);
end.
3
var
a:array[1..20]of integer;
s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:=random(-50,50);
write(a[i],' ');
end;
writeln;
write('Меньше 25: ');
for i:=1 to 20 do
if a[i]<25 then
begin
s:=s+1;
write(a[i],' ');
end;
writeln;
writeln('Их количество: ',s);
end.
Не нашли ответ?
Похожие вопросы