Версия для печати темы

Автор: Kerjakoff 4.12.2006 16:42

заменить все четные элементы массива А(20) на их квадраты а нечетные удвоить

Автор: AnTiDoD 4.12.2006 21:44

Попытаюсь решить..

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.

Можно вложить условный оператор уже в первый цикл.