Программирование - вопрос №479256

В одномерном массиве А, состоящем из 12 целых чисел, все положительные четные элементы заменить пятеркой.

Лучший ответ по мнению автора

program pr;

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

i:integer;

begin

 writeln('vvedite massiv');

for i:=1 to 12 do readln(a[i]);

for i:=1 to 12 do

  if (a[i]>0) and (a[i] mod 2 =0) then a[i]:=5;

for i:= 1 to 12 do

  write(a[i]:5);

readln

end.

Буду благодарна, если отметите 

29.11.12
Лучший ответ по мнению автора

Еva

от 100 p.
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store