Var
A:array[1..30] of integer;
N,k,i:byte;
Min,Max:integer;
Begin
ReadLn(N);
k:=0;
For i:= 1 to N do
Begin
Read(A[i]);
if A[i]<= 30 then k:=k+1
End;
Max:=A[1];
Min:=A[1];
For i:= 2 to N do
Begin
if A[i]>Max then Max:=A[i];
if A[i]<Min then Min:=A[i];
End;
WriteLn(Max-Min,' ',k);
End.
Гипермедиа содержит в себе графику видео звук и информацию для создания среды любого восприятия
Paskall:
var a:array[1..5[ of integer;
i, min:integer;
begin
writeln('Введите элементы массива (5 целых чисел) в одной строке и нажмите <Enter>');
for i:=1 to 5 do
read(a[i]);
min:=a[1];
for i:=2 to 5 do
if(a[i]<min) then
min:=a[i];
writeln('Минимальный элемент массива: ', min);
end.
<span>да мы можем увидеть какие есть деревья ,животные и научиться различать их))</span>
Ответ:
Объяснение:
Сперва надо бы проверить систему на наличие вирусов, возможно надо почистить от пыли системный блок, проверить саму оперативку, почистить контакты с жестким диском или сам жесткий диск проверь на другом компьютере.