<em>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-5,55); a.Println;
var max:=a.Where(t->t.IsEven).Max;
var imax:=a.IndexesOf(t->t=max).FirstOrDefault;
Writeln('1: a[',imax+1,']=',max);
Writeln('2: ',a.Where(t->t mod 3=0).Sum);
Writeln('3: ',a.Where(t->t<0).Count);
end.
<u>Пример</u>
n= 20
-4 45 4 -5 38 1 42 52 53 17 42 22 3 11 28 5 14 28 35 22
1: a[8]=52
2: 132
3: 2
<u>MS DOS QBasic 1.0</u>
Dim n As Integer, a As Double, b As Double
CLS
INPUT "0-площадь квадрата, иное-периметр прямоугольника"; n
If n = 0 Then
INPUT "Длина стороны: "; a
Print "Площадь квадрата " + Str$(a ^ 2)
Else
INPUT "Длина стороны прямоугольника: "; a
INPUT "Ширина стороны прямоугольника: "; b
Print "Периметр прямоугольника " + Str$(2 * (a + b))
End If
Var
Z:array [1..10] of Integer;
i,max,min:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to 10 do
Begin
Write('Z(',i,') = ');
ReadLn(Z[i]);
End;
max:=Z[1];
min:=Z[1];
For i:= 2 to 10 do
begin
if (Z[i]>max) then max:=Z[i];
if (Z[i]<min) then min:=Z[i];
End;
Writeln('Наибольшее число = ',max);
Writeln('Наименьшее число = ',min);
end.
Var
s,i: integer;
begin
s:=0;
for i:=0 to 50 do
if i mod 6 =0
then s:=s+i;
writeln ('S = ',s)
end.
-----------------------------
S = 216