В 20 веке был создан интернет
Program picaso; uses crt;var i,n,ls,ld,min,max,temp,k,j,f,aux:integer;<span> a:array[1..10] of integer;</span>begin clrscr; <span> writeln('Vedite dlinu masiva');read(n);</span><span> writeln('Vedite granitu s leva');read(ls);</span><span> writeln('Vedite granitu s prava');read(ld);</span><span> for i:=1 to n do </span><span> begin</span><span> write('A[',i,']=');</span><span> readln(a[i]);</span><span> end;</span><span> min:=a[1];max:=a[1];</span><span> repeat</span><span> f:=1;</span><span> for i:=ls to ld-1 do</span><span> if a[i]<a[i+1] then </span><span> begin </span><span> aux:=a[i]; </span><span> a[i]:=a[i+1]; </span><span> a[i+1]:=aux; </span><span> f:=0; </span> end; until f=1; <span> for i:=ls to ld do</span><span> write(a[i]:3);</span><span> writeln;</span><span> writeln('min: ',a[ls],' max: ',a[ld]);</span><span> aux:=a[ls]; </span><span> a[ls]:=a[ld]; </span><span> a[ld]:=aux; </span><span> for i:=ls to ld do</span><span> write(a[i]:3);</span> end.<span>
</span>
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var i,n:integer;
begin
readln(n);
for i:=1 to n do writeln(i,'*',i,' = ',i*i);
end.
Sub maxZn()
'заполнение массива
Dim mas(20)
S = ""
Randomize
For i = 1 To 20
mas(i) = Round(Rnd(100) * 100)
S = S + Str(mas(i)) + ","
Next i
'поиск максимального числа и количества его повторений
qty = 1
max = mas(1) 'предполагаем, что максимальное число в первом элементе массива
For i = 2 To 20
If mas(i) = max Then
qty = qty + 1
End If
If mas(i) > max Then
max = mas(i)
qty = 1
End If
Next i
MsgBox "последовательность чисел " + S
MsgBox "максимальное число " + Str(max) + "число повторений " + Str(qty)
End Sub
<span>Sub test()
Call maxZnEnd
Sub</span>
Тетрадь, флеш-накопитель, жесткий диск, дискетта