filonova20022
Опубликовано 6 лет назад по предмету Информатика от filonova20022


Дан массив из 7 целых чисел, все элементы меньше 10, заменить на 0 и вывести полученный массив на экран.

  1. Ответ
    Ответ дан 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.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц