Минимально и нужно , интересно где еще такое задают
Program n1;
var a,i,k: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(a);
if a<0 then k:=k+1;
end;
write(k);
end.
То же самое, что и в предыдущих блоках было, выполнить 1 раз в отношении переменной D.
Алгоритм:
1) Максимальное =A
2) Если B>максимального, то максимальное=B
3) Если C>максимального, то максимальное=C
4) Если D>максимального, то максимальное=D
АЦП- аналогово-цифровой<span> преобразователь</span>
Алг Число
нач
цел А
вывод "Введите целое число", нс
ввод А
если mod(А,2) = 0 то
вывод "Число четное"
иначе
вывод "Число нечетное"
все
кон