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


запросить с клавиатуры массив из 10 целых элементов.Четные увеличить на 2,а нечетным присвоить 0 и вывести таблицу на экран

  1. Ответ
    Ответ дан Maksim2009rus
    const  N = 10;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] mod 2 = 0) then      A[i] += 2    else      A[i] := 0  end;  // Вывод полученного массива на экран  write('Массив: ');  for i := 1 to N do begin    write(A[i], ' ');  end;end.
    1. Ответ
      Ответ дан dianahasanova54
      спасибооо
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

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