решить в паскале через for 1.Составить программу, которая бы работникам патрульной службы определять - id1643864920230331 от Vitos325 31.03.2023 08:53

Question

Информатика: решить в паскале через for 1.Составить программу, которая бы работникам патрульной службы определять количество нарушителей превышения скорости на трассе, если известно, что на данном промежутке трассы установлено ограничение на скорость MAXV, а прибор фиксирует скорость автомобилей v1, v2, ..., vn. 2.Разработать алгоритм вычисления результатов участников спортивных соревнований по определенным возрастным категориям, если известно, что для участников до 15 лет результат должен находится в интервале

Vitos325 · Accepted Answer

Uses crt;
const max=15;
var a : array[1..max] of integer;
i,k0,k1,k3 : integer;
k:boolean;
begin
randomize;
k0:=0;
k1:=0;
writeln('исходные:');
for i:=1 to max do
begin
a[i]:=random(2);
write(a[i]:4);
end;
for i:=1 to 15 do
begin
if a[i]=0 then inc(k0) else inc(k1);
if a[i]<>0 then k:=true;
if k=false then inc(k3);
end;
writeln;
writeln('количество нулей = ',k0);
writeln('количество единиц = ',k1);
writeln('количество нулей до первой единицы = ',k3);
End.

MOGZ ответил