Uses crt;
const M = 100;
var a: array [1..M] of integer;
i, max, k, n: integer;
begin clrscr;
repeat
writeln('Введите количество элементов массива');
readln(n);
until (n <> 0) and (n>0);
for i := 1 to n do
begin
writeln('Введите [', i, '] элемент массива');
readln(a[i]);
end;
for i := 1 to n do
write(' ', a[i]);
writeln;
max := a[1];
for i := 2 to n do
if a[i] > max then max := a[i];
writeln(' max= ', max);
for i := 1 to n do
if a[i] = max then k := k + 1;
writeln(' k= ', k);
<span>end.</span>
<span>Выполнив указанные в сообщении действия, Наташа получила следующий код для цифрового замка:
133</span>
Var x,y,z:integer;
begin
x:=13;
y:=3;
z:=x;
x:=z div y;
y:=x;
writeln(x+' '+y+' '+z);
end.
Ответ
<span>3)x=4, y=4, z=13</span>
Про синтаксис сказать ничего не могу, вроде правильно
объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т.е. S:=2*pi*r*h+2*pi*r*r
Var s,p,a,b: integer;
begin
readln(s,p);
a:=round((s+sqrt(s*s-4*p))/2);
b:=s-a;
writeln(a,' ',b);
end.
Пример:
73 1200
<span>48 25</span>