Предмет: Информатика,
автор: Kramer64
Дан массив целых чисел состоящий из 10 элементов вывести индексы тех элементов значение которых больше заданного числа А (А вводится с клавиатуры)
Язык программирования: Паскаль
Ответы
Автор ответа:
0
var a:array[1..10] of integer;
i,b:integer;
begin
for i:=1 to 10 do
read(a[i]);
read(b);
for i:=1 to 10 do
if a[i]>b then write(i,' ');
end.
i,b:integer;
begin
for i:=1 to 10 do
read(a[i]);
read(b);
for i:=1 to 10 do
if a[i]>b then write(i,' ');
end.
Автор ответа:
0
Благодарю.
Похожие вопросы
Предмет: Математика,
автор: aizeredauren09
Предмет: Русский язык,
автор: gerasimenkos251
Предмет: Алгебра,
автор: lerashevchenko0606
Предмет: Физика,
автор: Orial