1. Дано n целых чисел. Вывести все числа, наименьшие последнего числа

1. Дано n целых чисел. Вывести все числа, меньшие последнего числа в ряду;
2. Обусловьте, есть ли в массиве числа от 3 до 7. Укажите их номер.






Задать свой вопрос
Vera
Не поверишь, буквально часа два назад такую же задачку решал.
1 ответ
Program asd;
Var A,C:array[1..2500] of integer;
i,n,s,ii:integer; 
sr:real;
BEGIN
Write('Введите n: '); Readln(n);
Writeln('Массив: '); 
For i:=1 to n do 
 begin 
 A[i]:=1+Random(9);
  Write(A[i]:2);  
 end;  
 Writeln;
  Writeln('Все элементы, которые меньше заключительного числа в ряду: ');
For i:=1 to n do
 begin 
if A[i]lt;A[n] then Write(A[i]:2);
 end;  
Writeln(); 
 Writeln('Номер частей, которые от 3 до 7.: ');  
  For i:=1 to n do
  begin 
 If  (A[i]gt;=3) and (A[i]lt;=7)   
 then 
 begin  
C[i]:=i;   Write(C[i],' ');  
 end;   
 end;
 END.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт