Program d1;
uses crt;
var
a, min : real;
i, j : integer;
begin
writeln('Введите 10 чисел');
j=0;
repeat
begin
readln(a);
if i = 1 then min := a;
if min > a then min := a;
j = j + 1
end;
until j = 10;
writeln('Равно:',round(min));
readkey;
end.
Program d2;
uses crt;
var
a, min : real;
i, j : integer;
begin
writeln('Введите 10 чисел');
j=0;
While j < 10 do
begin
readln(a);
if i = 1 then min := a;
if min > a then min := a;
j = j + 1
end;
writeln('Равно:',round(min));
readkey;
end.
Помогите!
Подскажыте как записать ету програму с конструкцыяй REPEAT…UNTIL и WHILE…DO:
Program d;
uses crt;
var
a: real;
min:real;
i:integer;
begin
writeln('Введите 10 чисел');
for i:=1 to 10 do
begin
readln(a);
if i=1 then
min:=a;
if min>a then min:=a;
end;
writeln('Равно:',round(min));
readkey;
end.
Program d;
uses crt;
var
a: real;
min:real;
i:integer;
begin
writeln('Введите 10 чисел');
for i:=1 to 10 do
begin
readln(a);
if i=1 then
min:=a;
if min>a then min:=a;
end;
writeln('Равно:',round(min));
readkey;
end.
Подскажыте как записать ету програму с конструкцыяй REPEAT…UNTIL и WHILE…DO:
Program d;
uses crt;
var
a: real;
min:real;
i:integer;
begin
writeln('Введите 10 чисел');
i:=1;
Repeat
readln(a);
if i=1 then
min:=a;
if min>a then min:=a;
inc(i);
until i=10;
writeln('Равно:',round(min));
readkey;
end.
Program d;
uses crt;
var
a: real;
min:real;
i:integer;
begin
writeln('Введите 10 чисел');
i:=1;
Repeat
readln(a);
if i=1 then
min:=a;
if min>a then min:=a;
inc(i);
until i=10;
writeln('Равно:',round(min));
readkey;
end.
Цитата:
Originally posted by Gauss
Код:
Program d1;
uses crt;
var
a, min : real;
i: integer;
begin
writeln('Введите 10 чисел');
i=1;
repeat
begin
readln(a);
if i = 1 then min := a;
if min > a then min := a;
inc(i);
end;
until i = 10;
writeln('Равно:',round(min));
readkey;
end.
Program d2;
uses crt;
var
a, min : real;
i: integer;
begin
writeln('Введите 10 чисел');
i=1;
While i < 10 do
begin
readln(a);
if i = 1 then min := a;
if min > a then min := a;
inc(i);
end;
writeln('Равно:',round(min));
readkey;
end.
uses crt;
var
a, min : real;
i: integer;
begin
writeln('Введите 10 чисел');
i=1;
repeat
begin
readln(a);
if i = 1 then min := a;
if min > a then min := a;
inc(i);
end;
until i = 10;
writeln('Равно:',round(min));
readkey;
end.
Program d2;
uses crt;
var
a, min : real;
i: integer;
begin
writeln('Введите 10 чисел');
i=1;
While i < 10 do
begin
readln(a);
if i = 1 then min := a;
if min > a then min := a;
inc(i);
end;
writeln('Равно:',round(min));
readkey;
end.
Gauss i у нее оч нужная переменная, а то ведь......
Цитата:
Originally posted by Greenering
Gauss i у нее оч нужная переменная, а то ведь......
Gauss i у нее оч нужная переменная, а то ведь......
да, извиняюсь, что-то я блин..... только одно замечание: должно быть i:=1 а не i=1
Цитата:
Originally posted by Gauss
должно быть i:=1 а не i=1
должно быть i:=1 а не i=1
Мда.. тоже облажалась
Бывает