(ТОЛЬКО ЧЕРЕЗ Кумир Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить среднюю зарегистрированную скорость всех автомобилей. Если скорость хотя бы одного автомобиля была не меньше 60 км/ч, выведите «YES», иначе выведите «N0».Программа получает на вход число проехавших автомобилей N (1 =< N =< 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести среднюю скорость, затем «YES» или «N0». ​

алг

нач

цел N, S, i, a=0

лит y = "NO"

вывод "N= "

ввод N

нц для i от 1 до N

вывод "S(", i, ")= "

ввод S

a := a+S

если S >= 60

то

y := "YES"

все

кц

вывод a/N, нс, y

кон

1)
uses crt;
const g=9.82;
var H,t: real;
begin
clrscr;
write ('H=');
readln (H);
t:=sqrt(2*H/g);
writeln ('t=',t:5:2);
end.
2)
uses crt;
var h,a,b,S: real;
begin
clrscr;
write ('h=');
readln (h);
write ('a=');
readln (a);
write ('b=');
readln (b);
S:=1/2*(a+b)*h;
writeln ('S=',s:5:2);
end.
3)
uses crt;
const N=8;
var
i: integer;
ch: array [1..N] of char;
begin
clrscr;
for i:=1 to N do
readln (ch[i]);
writeln ();
for i:=1 to N do
writeln (ch[i]);
end.
4)
uses crt;
var
A,B,R:real;
begin
clrscr;
write ('A=');
readln (A);
write ('B=');
readln (B);
R:=B;
R:=A;
A:=B;
writeln ('A=',A);
writeln ('B=',R);
end.

1) 
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,s,k,k1:integer;
BEGIN
Clrscr;
For i:=1 to n do
 begin 
A[i]:=random(10); 
Write(A[i]:4); 
end;       
Writeln;
 Writeln('Введите число: '); 
Readln(s); 
For i:=1 to n do 
 begin   
If A[i]=s then k:=k+1; 
end; 
Writeln('Число  ',s,', его кол-во в массиве:  ',k,' шт.');
END.
2)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
 i,min,mini,max,maxi:integer;
BEGIN
Clrscr; 
For i:=1 to n do 
 begin 
A[i]:=Random(20); 
 Write(A[i]:4);
  end;
  Writeln; 
max:=A[1]; 
min:=A[1]; 
For i:=1 to n do 
 begin 
 if A[i]>max then 
 begin 
 maxi:=i; 
 max:=A[i];   
end; 
  if A[i]<min then
 begin   
mini:=i; 
 min:=A[i]; 
  end; 
end; 
Writeln('Максимальное число: ',max,'. Индекс: ',maxi);   
Writeln('Минимальное число: ',min,'. Индекс: ',mini );
END.