Ребятки, помогите, пожалуйста.
В соревнованиях по плаванию принимают участие N спортсменов. Ввести их результаты и определить лучший результат.
Решить через While или For, в паскале.
Ответы на вопрос
Ответил Mepkypuu
0
1) с for
var N,i:integer;
res,max:real;
begin
readln(N);
readln(res);
max:=res;
for i:= 1 to N-1 do
begin
readln(res);
if res<max then
max:=res;
end;
writeln(max);
end.
2) с while
var N,i:integer;
res,max:real;
begin
readln(N);
readln(res);
max:=res;
while i <>N-1 do
begin
readln(res);
if res<max then
max:=res;
i:=i+1;
end;
writeln(max);
end.
var N,i:integer;
res,max:real;
begin
readln(N);
readln(res);
max:=res;
for i:= 1 to N-1 do
begin
readln(res);
if res<max then
max:=res;
end;
writeln(max);
end.
2) с while
var N,i:integer;
res,max:real;
begin
readln(N);
readln(res);
max:=res;
while i <>N-1 do
begin
readln(res);
if res<max then
max:=res;
i:=i+1;
end;
writeln(max);
end.
Ответил Mepkypuu
0
всё))
Ответил Лия97
0
тут напишешь или как?)
Ответил Mepkypuu
0
ответ изменил :ь
Ответил Лия97
0
Спасибо*)
Ответил Mepkypuu
0
агась)
Новые вопросы