Program enot;
Var A: array[1..50] of integer;
i,k:integer;
begin
for i:= 1 to 50 do
a[i]:= random(51)+150;
k:=0;
for i:= 1 to 50 do
if a[i]>170 then k:=k+1;
writeln(k);
<span>end.</span>
добавь или рисунком или расскажи в чем проблема посчитать колво записей подпадающих под условие. пиши в лс
1. Тег <a> (от англ. anchor – якорь).
Чтобы указать, куда должна вести ссылка, используется атрибут href (от hyper-reference – гиперссылка).
2. Теги <ol> и <ul> (от англ. ordered list и unordered list – упорядоченный и неупорядоченный список). Для создания элементов списка нужен тег <li> (list item – элемент списка).
3. Текстовое поле – <input type="text">
Переключатель – <input type="radio">
Флажок – <input type="checkbox">
Раскрывающийся список – <select>, элементы списка – <option>
Текстовая область – <textarea>
4. method – для определения метода (get или post, по умолчанию get)
action – url, куда отправлять данные (необязательно в HTML 5)
Ориентированный граф (кратко орграф) — (мульти) граф, рёбрам которого присвоено направление. Направленные рёбра именуются также дугами, а в некоторых источниках и просто рёбрами.
Uses crt;
var n: Integer;
begin
read(n);
clrscr;
if (n mod 3) = 0 then writeln('Является') else
writeln('Не является');
end.