Пишу на QBasic
массив создан и заполнен
PRINT "Введите количество элементов массива"
INPUT N
MIN= 150
FOR I = 1 TO N
IF I <MIN AND I>0 THEN
MIN = I
END IF
NEXT I
PRINT MIN
Про синтаксис сказать ничего не могу, вроде правильно
объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т.е. S:=2*pi*r*h+2*pi*r*r
program xxx;
var i, k, d, e, s : integer;
begin
k:=0;
for i:= 10 to 99 do
begin
d:= i div 10;
e:= i mod 10;
s:=d + e;
if i mod s = 0 then k:=k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end.
Такая информация называется Достоверной
Вот Держи Пароль Если Тебе Так Надо **QAZwsx2014*