36*64=2304 строки
99 КБ = 101376 байт = 811008 бит
811008 бит : 8 бит = 101376 символов
101376 символов : 2304 строки = 44 символа
Я не знаю что такое нулевой элемет, поэтому в строке ...if (a[i]=0) then... вместо нуля подставишь нужное.
For i := 1 to N do begin
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>100) then
k:=k+1;
end;
<span>writeln(k);</span>
Держи. Будут вопросы - обращайся
Program ArrayMax;
Const n = 10;
Var a: Array [1..n] of Integer;
i, b: Integer;
Begin
WriteLn('Введите ', n, ' целых чисел через пробел и нажмите Enter');
For i := 1 To n Do
Read(a[i]);
b := a[2];
For i := 1 To n Do
If (i Mod 2 = 0) And (a[i] > b) Then
b := a[i];
Write('Результат: ', b);
End.