Помогите решить задачки!!!1. Дан массив размера 10, числовые значения которого вводятся

Помогите решить задачи!!!
1. Дан массив размера 10, числовые значения которого вводятся с клавиатуры. Вывести наибольший элемент данного массива и его номер.
2. Дан массив размера 10, числовые значения которого вводятся с клавиатуры. Вывести все двузначные элементы массива и их номера.
3. Дан массив размера 10, числовые значения которого вводятся с клавиатуры. Вывести предпоследний элемент массива кратный 3 и его номер.

Задать свой вопрос
1 ответ
1)
var a=array[1..10]of integer;
i,max,poz: integer;
begin
writeln('vverite 10 elementov')
for i:=1 to 10 do
read(a[i]);
max:=a[1];
poz:=1;
for i:=2 to 10 do
if (a[i]gt;max)then begin max:=a[i];poz:=i; end;
writeln('max = ',max,' ego nomer =', poz);
end.
2)
var a=array[1..10]of integer;
i:integer;
begin
writeln('vverite 10 elementov')
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if (a[i]gt;=10)and(a[i]lt;=99) then writeln(a[i],' ego nomer',i);
end.
3)
var a=array[1..10]of integer;
i,k,poz:integer;
begin
writeln('vverite 10 elementov')
for i:=1 to 10 do
read(a[i]);
k:=0;
for i:=10 downto 1 do
begin
if(a[i] mod 3 =0) then begin k:=k+1;poz:=i; end;
if(k=2) then writeln(a[i],' ego nomer = ',i);
end;
if(k=0) then writeln('kratnyh 3 net');
if(k=1) then writeln('kratnyy 3 tol'ko 1: a[',poz,']=',a[poz]);
end.
Павел Фадюкин
Поставила. Спасибо большое. Респект для тебя)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт