Дан массив из 7 целых чисел, все элементы меньше 10, заменить на 0 и вывести полученный массив на экран.
Answers & Comments
Maksim2009rus
Const N = 7; var A: array [1..N] of integer; i: integer; begin // Ввод и обработка массива for i := 1 to N do begin write('Введите ', i, ' элемент -> '); readln(A[i]); if (A[i] < 10) then A[i] := 0; end; // Вывод полученного массива на экран write('Массив: '); for i := 1 to N do begin write(A[i], ' '); end; end.
Answers & Comments
N = 7;
var
A: array [1..N] of integer;
i: integer;
begin
// Ввод и обработка массива
for i := 1 to N do begin
write('Введите ', i, ' элемент -> ');
readln(A[i]);
if (A[i] < 10) then
A[i] := 0;
end;
// Вывод полученного массива на экран
write('Массив: ');
for i := 1 to N do begin
write(A[i], ' ');
end;
end.