Const
n=10;
var
a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
Write('Исходный массив: ');
k:=0;
for i:=1 to n do
begin
a[i]:=Random(51)-25;
Write(a[i],' ');
if (a[i]>0) and (a[i] mod 2=0) then Inc(k)
end;
Writeln;
Writeln('Количество четных положительных чисел равно ',k)
end.
Контрольный прогон
Исходный массив: 6 -13 -13 -19 -18 -10 -18 8 -17 -4
Количество четных положительных чисел равно 2
500 Кбайт=512000 байт
16 бит=2 байта
512000/2=256000 символов всего
256000/200=1280 символов на странице
Ответ: 1280
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var imin:=a.IndexMin;
Writeln('Номер минимального элемента: ',imin+1,
', значение: ',a[imin])
end.
<u>Пример</u>
n= 17
-20 -14 27 33 -34 -25 -47 33 -46 -5 -36 -3 30 -27 -45 46 41
Номер минимального элемента: 7, значение: -47