Заменить все четные элементы на их квадраты, а нечетные удвоить
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;
if a[i] mod 2=0 then a[i]:=a[i]^2 else a[i]:=a[i]*2;
writeln (a[i]);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.