АК
Анастасия Комарова
Помогите с задачкой на Pascal
Масив целих чисел складаеться з n елементов. Вивести индекс тех елементов, значення которих кратние 3 и больше числа В.
Масив целих чисел складаеться з n елементов. Вивести индекс тех елементов, значення которих кратние 3 и больше числа В.
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.
Пишите на почту или в асю 586178755