Напишите программу ,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор , пока не будет введен ноль) и определение наименьшего из введеных чисел. используйте оператор repeat
Program CicleRepeat; uses crt; {для использования clrscr - очистки экрана} var mas: array[1..100] of integer; i,n,min: integer; begin clrscr; {очистка экрана. Необязательно использовать} writeln('Kol-vo elementov v massive?'); readln(n); min:=0; repeat for i:=1 to n do write(mas[i]); readln(mas[i]); if mas[i]<min then min:=mas[i]; writeln('naimenshee chislo ', min); until mas[i]=0; end.
Если ввести X или Y значительно больше чем Z то программа на втором или тертьем условии выдаст false и закончит свою работу ничего не написав. Например: если указать X = 10 , Y = 2, Z = 3; то на первом условии будет true, потому что 10 +2 > 3 , но на третьем условии выдаст false потому что 2+3 < 10 но так как ничего не прописано на этот случай программа просто закончит свою работу. Что бы исправить этот баг необходимо все условия свести в одно: if ((x + y > z)and (x + z > y) and (y + z > x) ) then writeln('треугольник построить можно') else writeln('треугольник построить нельзя'); end.
Это решение так же является ответом на 3-й вопрос.
Если ввести X или Y значительно больше чем Z то программа на втором или тертьем условии выдаст false и закончит свою работу ничего не написав. Например: если указать X = 10 , Y = 2, Z = 3; то на первом условии будет true, потому что 10 +2 > 3 , но на третьем условии выдаст false потому что 2+3 < 10 но так как ничего не прописано на этот случай программа просто закончит свою работу. Что бы исправить этот баг необходимо все условия свести в одно: if ((x + y > z)and (x + z > y) and (y + z > x) ) then writeln('треугольник построить можно') else writeln('треугольник построить нельзя'); end.
Это решение так же является ответом на 3-й вопрос.
uses crt; {для использования clrscr - очистки экрана}
var mas: array[1..100] of integer;
i,n,min: integer;
begin
clrscr; {очистка экрана. Необязательно использовать}
writeln('Kol-vo elementov v massive?');
readln(n);
min:=0;
repeat
for i:=1 to n do
write(mas[i]);
readln(mas[i]);
if mas[i]<min
then min:=mas[i];
writeln('naimenshee chislo ', min);
until mas[i]=0;
end.