var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
writeln('Skolko elementov');
read(n);
s:=0; s1:=0;
randomize;
for i:=1 to n do
begin
a[i]:=random(10);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a[i] mod 2=0) then s:=s+a[i] else s1:=s1+a[i];
end;
end;
writeln('Summa chetnix chisel = ',s);
writeln('Summa ne chetnix chisel ',s1);
end.
Var
arr : array [1..30] of integer;
sum, count, i, a : integer;
begin
read (a);
for i := 1 to 30 do read (arr[i]);
count := 0; sum := 0;
for i := 1 to 30 do
begin
if arr[i] < 0 then sum := sum + arr[i]
else if (arr[i] > 0) and (arr[i] <= a) then count := count + 1;
end;
writeln (sum, ' ', count);
end.
var
arr : array [1..30] of integer;
i : integer;
begin
for i := 1 to 30 do read (arr[i]);
for i := 30 downto 2 do
if arr[i] * arr[i - 1] < 0 then // проверка знака
begin
writeln (i - 1);
halt; // Остановка программы
end;
writeln ('-1'); // Таких нет
end.
Функциональные клавиши,символьные ( алфавитно- цифровые) клавиши, клавиши управления курсором, специальные клавиши , клавиши дополнительной клавиатуры.
Var x, p: integer;
begin
x:= 1;
p:=1;
repeat
p:= p*x;
x:= x + 2;
until x<11;
end.
1 МБ = 8 Мбит
Переводим МБ в Мбиты: 10*8=80 Мбит
80/50 = 1.6 сек