(ТОЛЬКО ЧЕРЕЗ Кумир Напишите программу для решения следующей задачи. Камера наблюдения регистрирует - id1341004620210226 от Pro1008700 26.02.2021 09:26

Question

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

Pro1008700 · Accepted Answer

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); ...

MOGZ ответил