Алг
нач
цел n, a, Max
вывод "n = "
ввод n
ввод Max
нц для n от 1 до n-1
ввод a
если a > Max то Max:=a
всё
кц
вывод "Max = ", Max
кон
Вроде это
Хотя точно не знаю , ас что знал написал)
В кілобайтах? сама рішаю допоможіть. бумаю напевно треба 1536 поділити на... блін тут нема на що ділити.ДОПОМОЖІТЬ!!!!
1мб=1000000байт
3мб=3000000байт
Var a,b,c,i:integer;
begin
i:=0;
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Write('3-число='); Readln(c);
if a=0 then i:=i+1;
if b=0 then i:=i+1;
if c=0 then i:=i+1;
Writeln(i,' чисел равных нулю');
end.