Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен удвоенному  соответствующему элементу исходного массива . В полученном массиве найдите максимальный элемент среди элементов, номера которых кратны трем. Выведите на экран исходные и полученные результаты.

Есть ответ
17.12.2022
358

Ответ


const  N=15

var a: array |1...N| of integer;

i,m,n :integer;

begin 

for i:=1 to N do readln (a|i|);

m:=0

for i:=1 to N do begin

a|i|:=a|i|*2;

end;

for i:=1 to N do 

if (i mod 3=0) and ((a|i|>m)or (m=0)) then

m:=a|i|;

writeln (m);

end.

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.