Дан массив из n целых чисел. найти номер первого элемента, который равен количеству элементов, кратных 3. составить программу алгоритма поиска в паскале

Var     n,i,x: integer;     a: array[1..20]of integer; begin write('массив: '); for i: =1 to 20 do   begin   a[i]: =random(1,9);   write(a[i],' ');   if a[i] mod 3=0 then n: =n+1;   end; writeln; for i: =20 downto 1 do   if a[i]=n then x: =i; writeln('ответ: ',x) end.

лично   я могу посоветовать забыть про эти книжки для подготовки. достаточно сидеть на сайте "решу огэ". все простые. если возникает трудность с решением, то просто посмотри видео на ютубе. многие требуют банальной внимательности и умения считать (не нужно складывать тригенаметрические уравнения и т.д. достаточно базовых знаний ). а если все же хочешь приобрести подобную , то все тесты одинаковы, просто в любом книжном магазине спроси, и всё. ну, а сам экзамен невероятно лёгок, за 2 месяца с нуля подготовится на 4 более чем реально. также можешь советоваться с учителем, на счёт тех , которые всё таки вызвали трудность. просто сиди на сайте, посмотри материал по решению тестов, и пообщайся с учителем. за несколько месяцев натаскайся тестов, а после если планируешь получить 5, то начинай изучать 2 часть (работа с компьютером).

лично у нас в школе 2 часть на пальцах вообще объясняли(ибо компьютеры в плохом состоянии были).

желаю тебе удачи на экзаменах, и надеюсь что это тебе .

var b: array of real;

i,n,ll: integer;

max,min,a: real;

begin

write('введите длину массива: ');

readln(n);

write('введите число a: ');

readln(a);

setlength(b,n);

writeln('массив b: ');

for i: =0 to n-1 do

begin

b[i]: =random(3*n);

write(b[i],' ');

end;

writeln;

min: =b[0];

max: =a;

for i: =0 to n-1 do

if min> b[i] then min: =b[i]

else if max< b[i] then begin

max: =b[i];

ll: =i;

end;

writeln('наименьший элемент массива - ',min);

writeln('элемент, больший числа ',a,' - ',max,' - находится в ',ll+1,' месте');

end.

можете вместо real типа данных использовать также и integer. просто неизвестно какие данные будут использоваться во время проверки