Предмет: Информатика,
автор: litvinov159
Заполнить массив T размерностью M значениями, введенными с клавиатуры.
Вывести на экран в одну строку каждый 2 элемент массива, который больше заданного значения K. (Язык программирования - Паскаль)
Ответы
Автор ответа:
0
Вот. Дружественный интерфейс. Делай лучшим, если помог.
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.
Автор ответа:
0
От души, по - братски благодарю!!!)))))))
Автор ответа:
0
Сделай ответ лучшим. Очки не помешают)
Похожие вопросы
Предмет: Литература,
автор: Shotov
Предмет: История,
автор: orlenkok03
Предмет: Математика,
автор: bixadak855
Предмет: Обществознание,
автор: Sasha1111ыф
Предмет: Математика,
автор: Дашуля25ру