Помощь - Поиск - Пользователи - Календарь
Полная версия: массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Kerjakoff
заменить все четные элементы массива А(20) на их квадраты а нечетные удвоить
AnTiDoD
Попытаюсь решить..

program Massiv;
uses crt;
var
i : integer;
A : array[1..20] of integer;

Begin
for i := 1 to 20 do
begin
Write('a',i,'=');
Readln(a[i]);
end;
for i := 1 to 20 do
begin
IF a[i] mod 2 = 0 then
a[i] := sqr(a[i])
else
a[i] := 2*a[i];
end;
readkey;
End.

Можно вложить условный оператор уже в первый цикл.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.