DE
Dovlet Esenov

Переведите с C++ на Pascal

int a[20];
int min = -1;
for(int k = 0; k < N; k++){
if ((a[k] > 99) & (a[k] < 1000)&(a[k]%8)){
if (a[k] >min) min = a[k];
}
}
if (min == -1) cout<<"не найдено\n";
else cout << min << '\n';

Ив
Иван

var
N, min, k : integer;
a : array[1..20] of integer;

begin
min := -1;
a[1] := 102;
a[2] := 101;
a[3] := 2;
a[4] := 3;
a[5] := 4;
a[6] := 5;
...
a[20] = 3
for k := 1 to 20 do
begin
if((a[k] > 99) and (a[k] < 1000) and (a[k] mod 8 <> 0)) then
begin
if a[k] > min then min := a[k];
end;
end;
if min <> -1 then writeln(min)
else writeln('не найдено');
end.

Похожие вопросы
подскажите хорошие учебники по pascal и c++ для начинающих
Pascal(ABC) -> C++ или C# -> C++ ?
Ребята помогите!!! Я новичек в ООП на C#. Раньше програмировал на Pascal,Delphe.
Помогите решить задачу на pascal c приминением циклов "ДЛЯ" " ПОКА"
Переведите, пожалуйста, из языка Pascal в язык Basic
Pascal
Что главное в процедуре? Изучаем delphi, pascal, c++ Вопрос с экзамена
переведите с Pascal в C++
помогите перевести программу с Turbo Pascal на Turbo C+
Перевести часть кода C++ в Pascal