Составьте программу которая осуществляет ввод в массив с клавиатуры 7 целых чисел и заменяет кратные 4 числа на 1
Var a:array[1..7] of integer; i:integer; n1:real; begin writeln('Введите 7 целых чисел'); for i:=1 to 7 do begin repeat read(n1); if (n1<>round(n1)) then writeln('Необходимо целое число'); until (n1=round(n1)); a[i]:=round(n1); end; for i:=1 to 7 do begin if (a[i] mod 4=0) then a[i]:=1; end; writeln('Полученный массив:'); for i:=1 to 7 do write(a[i]:5); writeln(''); end.
write(a[i]:5); почему 5
чтобы оно красиво выводило элементы массива) можете изменить на write(a[i],','); или вовсе writeln(a[i]);