Question

1. Массив из 10 элементов, вводим их с клавиатуры. Вывести на экран все положительные элементы и вычислить их сумму2. Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (В массиве 20 элементов, заполнен случайными числами.)3. Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 . Вывести на экран, посчитать количество чисел, меньших 25

Answer 1

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.

Answer 2

1. Для решения этой задачи сначала создадим массив из 10 элементов и заполним его значениями, введенными с клавиатуры. Затем мы пройдемся по массиву, найдем все положительные элементы, выведем их на экран и вычислим их сумму.

2. Для этой задачи создадим массив из 20 элементов, заполненный случайными числами. Затем пройдемся по массиву и найдем все элементы, стоящие на нечетных местах. Выведем их на экран и вычислим их сумму.

3. Для решения этой задачи создадим массив из 20 элементов, заполненный случайными числами в диапазоне от -50 до 50. Затем пройдемся по массиву, найдем все числа, которые меньше 25, выведем их на экран и посчитаем их количество.