М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lera1038
lera1038
04.03.2022 20:33 •  Информатика

Написать программу! ) в эвм по очереди поступают результаты соревнований ,в которых участвуют n спортсменов.составьте программу,которая обеспечивает вывод на экран лучшего результата каждыйраз после ввода
результата очередного спортсмена

👇
Ответ:
SmartPocan
SmartPocan
04.03.2022

var n,i: integer;

      result,thebest: real;

begin

  thebest:=1;

  writeln('Введите количество спортсменов');

  readln(n);

  for i:=1 to n do begin

    writeln('Введите результат ',i,' спортсмена');

    readln(result);

    if result>thebest then thebest:=result;

    writeln('Лучший результат: ',thebest);

                         end;

end.

    

  

4,4(41 оценок)
Открыть все ответы
Ответ:
кккк51
кккк51
04.03.2022

Program JuliaVanina;
uses crt;
var
  r,min,max: real;
  k:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  min:=0;
  max:=0;
  k:=0;
  r:=1;
  writeln('Введите ненулевое число, не превышающее 30000 по модулю');
  writeln('(или введите 0 для конца последовательности) ');
  while (r<>0) and (k<1000) do
    begin
      write('Ввод:');  
      readln (r);
      if abs(r)<30000 then
          begin
            if min>r then min:=r;
            if max<r then max:=r;
            k:=k+1;  
          end
        else
          begin
            writeln ('вы ввели слишком большое по модулю число');
            writeln ('Это число не будет учтено');
          end;
    end;
  writeln();
  writeln('Всего введено ',k-1,' чисел');
  writeln('Разность min и max составляет ',max-min);
end.

 

Проверено - работает на Паскаль АВС

4,6(7 оценок)
Ответ:
Salat12
Salat12
04.03.2022


uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.


uses crt;
var i,j,k,n,m,t:integer;
mas: array[1..10,1..10]of integer;
begin
randomize;
readln(n);
readln(m);
writeln;
writeln('Bazovui massiv');
for i:=1 to m do
for j:=1 to n do
mas[i,j] :=random(100);
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
writeln;
for i:=1 to m do
for j:=1 to n do
for k:=1 to n-1 do
if mas[i,k]>mas[i,k+1] then Begin
t:=mas[i,k];
mas[i,k]:=mas[i,k+1];
mas[i,k+1]:=t;
End;
writeln;
writeln('Massiv posle obrabotki') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write (mas[i,j],' ');
end;
end.

4,8(88 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ