Дан целочисленный массив из 30 элементов Напишите алгоритм позволяющий найти сколько 1 был превышен лимит ноябре значение лимита не превышает 60 минут
Между end пишешь
T:=0;
For i:=1 to 30 do
Begin
If a[i]>60 then t:=t+1 ;
end;
If t>30 theb writeln ("рекомендую повысить лимит ") else writeln (" лимит оптимальный ");
