Question

С клавиатуры вводится возраст  каждого из 10 друзей. Найти возраст старшего. Сколько друзей такого возраста.


Паскаль

Answer 1

Готово. Решение в файле. Если есть вопросы, пиши ниже.

04681623f6de266067c7ed012bbbf9dd.pas

Answer 2

Пишу на QBasic
CLS
DIM A(10)
FOR I = 1 O 10
INPUT A(I)
NEXT I
MAX= A(1)
FOR I = 2 TO 10
IF A(I)>A(I-1)THEN
MAX= A(I)
END IF
NEXT I
FOR I = 1 TO 10
IF A(I)= MAX THEN
K=K+1
END IF NEXT I
PRINT MAX
PRINT K

04681623f6de266067c7ed012bbbf9dd.pas

Answer 3

Хотя наверняка можно проще и короче

Answer 4

Написано же, что Паскаль :)

Answer 5

оу.. зачем было так отделять от текста?

Answer 6

Да ладно, спасибо вам двоим, может быть кому то пригодится и для Бейсика