Var
a:array [1..100] of integer;
n,l,i,j:integer;
begin
<span>for i:=1 to 20 do</span>
read (a[i]);
for j:=1 to N-1 do
for i:=1 to N-j do
<span>if a[i] > a[i+1] </span>
<span>then </span>
<span>begin </span>
l:=a[i];
a[i]:=a[i+1];
a[i+1]:=l;
end;
for i:=1 to 20 do
<span>if ((a[i] mod 2)=1) and ((a[i] mod 5)=0) </span>
<span>then </span>
begin
writeln (a[i]);
break;
else writeln('таких чисел нет');
end;
<span>end.</span>
Интерфейс,оболочка оперативной системы
Оболочка оперативной системы-интерпретатор команд операционной системы(ос) обеспечивающий интерфейс для взаимодействия пользователя с функциями системы.
На 1 пункт:
program mueta;
uses crt;
const n=(любому числу, например 3);
var k:array[1..n]of integer;
s:array[1..n]of integer;
begin
clrscr;
for i:=1 to n do begin
writeln('введите эл-ты массива s[i]=');
readln(s[i]);
end;
for i:=1 to n do begin
if s[i]>0
then
writeln('s[i] положительное число', s[i]);
ENd.
2)На второй тоже самое только нужно заменить массив на(k) условие нужно поменять на s[i]mod 2=0
По-моему нет, даже если да то интефейс глючить будет