Паскаль! Напишите програму, которая формирует массив из N элементов

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

в избранное

markus

12 августа 2022

Vara: array[1… 20] of integer; i,n,min,max,s: integer; beginrandomize; s: =0; writeln ('Введи кол-во элементов в массиве'); readln (n); for i: =1 to n doa[i]: =random (35) -10; for i: =1 to n doif i mod 2=0 then writeln ('a[',i,']=',a[i]); for i: =1 to n doif 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]max then max: =a[i]; end; writeln ('Максимум=',max); writeln ('Минимум=',min); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?