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

Вводится последовательность натуральных чисел - рост учеников класса, не превосходящих 30. ноль - признак конца. требуется вывести рост двух самых высоких учеников

👇
Ответ:
zhgulevatanya
zhgulevatanya
24.07.2020

Должно работать:

program prim;

var a: array[0..99999] of integer;

i:byte;

f:integer;

b,c:integer;

begin

for i:=0 to 99999 do begin

readln(a[i]);

if a[i]=0 then break;

f:=i;

end;

for i:=0 to f do begin

if a[i]>c then begin  

if a[i]>b then b:=a[i] else c:=a[i];  

end;end;

writeln(b, ' ',c);

end.

4,4(3 оценок)
Открыть все ответы
Ответ:
FEDY200599999M
FEDY200599999M
24.07.2020

функция input предназначена для того, чтобы ты из консоли мог давать значение переменной после запуска своей проги. Если ты хочешь, чтобы твоя прога сама предлага вводить параметры а, b, c то стери что в скобке input или напиши так:

a=int(input('a = '))

b=int(input('b = '))

c=int(input('c = '))

и уже как запустишь свою прогу в консоли надо дописать, чему будет равны а, b, c. Или в своей проге укажи чему равны параметры а, b, c. Например:

a=1

b=2

c=3

если тебе нужны только целые числа, округленные в наименьшое целое чилсо, то используй функцию int. Например

a=int(5.9)

print(a)

будет напечатано 5

Объяснение:

4,7(85 оценок)
Ответ:
bogdan2041
bogdan2041
24.07.2020
Все в паскале:
1. Формула пути S=V*t,V=S/t;
    Значит программа имеет вид
var s, v, t:integer;
begin
writeln('Введите путь и время');
readln(s, t);
v:=s/t
writeln('ответ: V=', v);
end.
Все остальное по анологии

Во 2 и 3 y:=/формула в условии/ и выводишь у
В 4, воспользуйся формулой площади S=a*b (a и b - ширина с длинной)
В 5 a=P-2*b  (а основание, b бок сторона)
В 7 o=(a+b+c)/3 (о - ср., а, b, c - число в классах)
8.
var a, b:integer;
begin
writeln('Введите числа');
readln(a, b);
writeln('Сумма=', a+b);
writeln('Разность=', a-b);
end.
В 9 как 8, только вместо + и - надо * И /
4,4(89 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ