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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.