в массиве из 10 элементов заменить нули на 1 и вывести на экран(в паскале)​

степан169 степан169    2   05.11.2019 12:26    1

Ответы
annajeon58 annajeon58  10.10.2020 11:21

var

 i: integer;

 a: array[1..10] of integer;

 

begin

 for i := 1 to 10 do

   read(a[i]);

 for i := 1 to 10 do

 begin

   if a[i] = 0 then a[i] := 1;

   write(a[i], ' ');

 end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика