Создать одномерный массив, содержащий целые числа. Элементы массива вводятся с клавиатуры. Найти номера всех элементов больше 5 (вывести их на экран), если таких нет,то сообщить об этом.
Ответы
Ответ дал:
0
const
N = 5;
var
a: array [1..N] of integer;
flag: boolean;
begin
flag := False;
for var i := 1 to N do
begin
readln(a[i]);
if a[i] > 5 then begin
writeln(a[i], i:3);
flag := True;
end;
end;
if not flag then writeln('Элементов больше 5 нет');
end.
N = 5;
var
a: array [1..N] of integer;
flag: boolean;
begin
flag := False;
for var i := 1 to N do
begin
readln(a[i]);
if a[i] > 5 then begin
writeln(a[i], i:3);
flag := True;
end;
end;
if not flag then writeln('Элементов больше 5 нет');
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад