Помогите решить задачи на Паскаль abс!
Ответы на вопрос
1)var a:array [1..10] of integer;
i,c:integer;
begin
randomize;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if (a[i]>9) and (a[i]<100) then c:=c+1;
end;
writeln;
write('Количество двузначных элементов: ',c);
end.
2)var a:array [1..10] of integer;
i,c,min:integer;
begin
randomize;
min:=200;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if a[i]<= min then
begin
min:=a[i];
c:=i;
end;
end;
writeln;
write('Номер последнего минимального элемента: ',c);
end.
3)var a:array [1..10] of integer;
i,c,min:integer;
begin
randomize;
min:=200;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(200);
write(a[i],' ');
if (a[i]mod 5=0) and (a[i]<min) then min:=a[i];
end;
writeln;
if min<200 then write('Минимальный элемент,кратный 5: ',min) else write('Нету такого элемента.');
end.