Напишите программу , которая фармирует масси из N элементов ( максимальное количество элементов равно 20), значения элементов массива - случайные числа от-10 до 25 Программа должна: 1) выводить на экран сначала все элементы массива, стоящие на четных местах, а зате - все элементы массива, стоящие на нечетных местах; 2) вывести на экран сумму всех элементов массива, значения которых кратны 3 или 5. 3) найти минимальное и максимальное значение элементов массива.
Var a:array[1..20] of integer; i,n,min,max,s:integer; begin randomize; s:=0; writeln ('Введи кол-во элементов в массиве'); readln(n); for i:=1 to n do a:=random(35)-10; for i:=1 to n do if i mod 2 = 0 then writeln ('a[',i,']=',a); for i:=1 to n do if i mod 2 >0 then writeln ('a[',i,']=',a); for i:=1 to n do if (a mod 3 = 0) or (a mod 5 = 0) then s:=s+a; writeln ('Сумма членов кратных 3 или 5 = ',s); min:=a[1]; max:=a[1]; for i:=2 to n do begin if a<min then min:=a; if a>max then max:=a; end; writeln ('Максимум=',max); writeln('Минимум=',min); end.
