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

Ответы 1

  • 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.

     

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years