Задать вопрос
26 июля, 18:03

Заменить все четные элементы на их квадраты, а нечетные удвоить

+4
Ответы (1)
  1. 26 июля, 20:49
    0
    Program abc;

    var i, b, c: integer;

    var a: array [1 ... 10] of integer;

    Begin

    for i:=1 to 10 do

    begin

    writeln ('Введите число') ;

    readln (a[i]) ;

    end;

    for i:=1 to 10 do

    begin

    if a[i] mod 2=0 then a[i]:=a[i]^2 else a[i]:=a[i]*2;

    writeln (a[i]) ;

    end;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Заменить все четные элементы на их квадраты, а нечетные удвоить ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы