Паскаль!! напишите програму ,которая формирует массив из N элементов (максимальное количество ровно 20), значения элементов масс
ива - случайные числа от-10 до 25. Программа должна: 1) выводить на экран сначала все элементы массива, стоящие на чётных местах, а затем - все элементы массива, стоящие на нечетных местах. 2) вывести на экран сумму всех элементов массива, значение которых кратны 3 или 5. <span>3) найти минимальное значение и максимальное значение элементов масива. </span>
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[i]:=random(35)-10; for i:=1 to n do if i mod 2 = 0 then writeln ('a[',i,']=',a[i]); for i:=1 to n do if i mod 2 >0 then writeln ('a[',i,']=',a[i]); for i:=1 to n do if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then s:=s+a[i]; writeln ('Сумма членов кратных 3 или 5 = ',s); min:=a[1]; max:=a[1]; for i:=2 to n do begin if a[i]<min then min:=a[i]; if a[i]>max then max:=a[i]; end; writeln ('Максимум=',max); writeln('Минимум=',min);<span> end.</span>
Uses Math; ... MyNumber:=RandomRange(Start, Stop);//1 вариант MyNumber:=Random(Stop)+Start;//2 вариант. Для него не нужен модуль <span>Math; </span>Start - От Stop - До