1.дан массив натуральных чисел.вывести на экран все двухзначные числа. 2. в массиве хранятся сведенья об оценках 25-ти учеников по языку.определить количество "5", "4", "3", "2".
Var Y, a,b,c,d:real; begin a:=5; b:=4; c:=3; d:=2; Y:=('formula'); readln; end. Приблизительно как то так, формулу сами подставите что бы определить кол-во 25 человек.
1. program one var i:integer; mas : array[1..n] of integer; begin for i:=1 to n do begin if (mas[i] < 100) and (mas[i] > 9) then writeln(mas[i]); end; end.
Пусть a, b, c − число пассажиров каждой из маршруток. тогда, нужно во-первых: выяснить можно ли поделить пассажиров поровну между тремя маршрутками; во-вторых: если первое утверждение верно, то k : = (a + b + c) div 3; − число пассажиров, которое должно приходиться на 1 маршрутку sum : = 0; − счётчик пересаживаемых пассажиров da : = a - k; if da > 0 then sum : = sum + da; db : = b - k; if db > 0 then sum : = sum + db; dc : = c - k; if dc > 0 then sum : = sum + dc; − если разница числа пассажиров и количества, которое должно быть в маршрутке, число положительное, значит столько пассажиров из данной маршрутки необходимо пересадить. что то типа дальше сама
begin
a:=5;
b:=4;
c:=3;
d:=2;
Y:=('formula');
readln;
end.
Приблизительно как то так, формулу сами подставите что бы определить кол-во 25 человек.