Question

написать программу которая формирует массив из n элементов (максимальное количество элементов равно 20), значения элементов массива случайные целые числа от -10 до 25.
 Программа должна:
1)выводить на экран сначала все элементы массива, стоящие на чётных местах, а затем - все элементы массива, стоящие на нечётных местах;
2)вывести на экран сумму всех элементов массива, значение которых кратны 3 или 5.
3)найти минимальное значение и максимальное значение элементов массива.

Answer 1

program x;
const n = 20;
var a: array [1..n] of integer;
s,max,min: integer;
begin
Randomize;
for i:=1 to n do
 a[i]:= Random(35) - 15;
for i:=1 to n do
 if i mod 2 = 0 then
  write(a[i]);
writeln;
for i:=1 to n do
 if i mod 2 <> 0 then
 write(a[i]);
writeln; s:=0;
for i:= 1 to n do
 if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then
  s:= s+a[i];
writeln(s); max:= -15; min:= 20;
for i:=1 to n do
begin
 if a[i] > max  then max:= a[i];
if a[i] < min then min:= a[i];
end;

writeln(max, min);
end.