Var a: array [1..100] of real;
n, i, kol: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
kol := 0;
for i := 1 to n do begin
if (a[i] > 0)and(i mod 2 = 0)
then kol := kol + 1;
if a[i] < 0
then a[i] :=0;
end;
writeln(kol);
<span>end.</span>
Обозначим Симченко - С, Василькова - В, <span>Левченко - Л;
Исходя из прогнозов и условия:
1 место. НЕ С И НЕ В => Л
2 </span>место<span>. НЕ В И НЕ Л => С
3 </span><span>место</span><span>. НЕ Л И НЕ С => В
Получили ответ:
</span><span> Левченко занял 1 место.
</span><span> Симченко занял 2 место.
</span><span> Васильков занял 3 место.</span>
Иероглифы обозначали целые слова и слоги, их было более 750
Ответ:
program Delitel;
var
n, i, j, c, d: Integer;
a: array of Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n + 1);
for i := 1 to n do begin
c := 0;
for j := 1 to i do begin
if i mod j = 0 then
Inc (c);
end;
a [i] := c;
end;
c := 1;
for i := 1 to n do begin
if a [i] > a [c] then
c := i;
end;
WriteLn ('Число ', c, ' имеет ', a [c], ' делителей.');
ReadLn;
end.
Что надо делать там вапросы ???