Помогите с задачкой на Pascal

Question

Масив целих чисел складаеться з n елементов. Вивести индекс тех елементов, значення которих кратние 3 и больше числа В.

Евгений Б · Accepted Answer

var 
 a: array [1..100] of integer; 
 n, c, b: integer; 
begin 
 randomize; 
 write('n (<= 100)? '); 
 readln(n); 
 writeln('array:'); 
 for c := 1 to n do begin 
 a[c] := random(31); 
 write(' ', a[c]); 
 end; 
 writeln; 
 write('b? '); 
 readln(b); 
 writeln('result:'); 
 for c := 1 to n do if (a[c] mod 3 = 0) and (a[c] > b) then write(' ', c); 
 writeln; 
end.

Алексей Сошин · Answer

Пишите на почту или в асю 586178755