profile
Опубликовано 4 года назад по предмету Информатика от litvinov159

Заполнить массив T размерностью M значениями, введенными с клавиатуры.
Вывести на экран в одну строку каждый 2 элемент массива, который больше заданного значения K. (Язык программирования - Паскаль)

  1. Ответ
    Ответ дан igroman95
    Вот. Дружественный интерфейс. Делай лучшим, если помог. program pr; var a:array of integer;t,i,k,m:integer; begin write('Размер массива: '); readln(t); Setlength(a,t); write('Выводить элемент больше, чем: '); readln(k); writeln(); writeln('Заполняем массив...'); for i:=1 to t do begin write('Элемент массива ',i,': '); readln(a[i]); end; writeln(); writeln('Следующие элементы больше ',k); for i:=1 to t do if a[i]>k then writeln('Элемент ',i,': ',a[i]) end.
    1. Ответ
      Ответ дан litvinov159
      От души, по - братски благодарю!!!)))))))
    2. Ответ
      Ответ дан igroman95
      Сделай ответ лучшим. Очки не помешают)
Самые новые вопросы