1. Массив из 10 элементов, вводим их с клавиатуры. Вывести ** экран все положительные...

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<br>       begin
       s:=s+1;
       write(a[i],' ');
       end;
writeln;
writeln('Их количество: ',s);
end.