Дан массив из 7 целых чисел, все элементы меньше 10, заменить на 0 и вывести полученный массив на экран.
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
2 года назад
2 года назад