Задание:
Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен удвоенномусоответствующему элементу исходного массива. В полученном массиве найдите максимальный элемент среди элементов, номера которых кратны трем. Выведите на экран исходные и полученные результаты.
Решение:
const N=15var a: array |1… N| of integer; i,m,n: integer; begin for i: =1 to N do readln (a|i|); m: =0for i: =1 to N do begina|i|: =a|i|*2; end; for i: =1 to N do if (i mod 3=0) and (a|i|>m) or (m=0) thenm: =a|i|; writeln (m); end.
Знаете другой ответ?