Предмет: Информатика, автор: 1Roman1

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


Паскаль

Ответы

Автор ответа: magica
0
Готово. Решение в файле. Если есть вопросы, пиши ниже.
Приложения:
Автор ответа: xtended
0
Пишу на 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
Приложения:
Автор ответа: xtended
0
Хотя наверняка можно проще и короче
Автор ответа: magica
0
Написано же, что Паскаль :)
Автор ответа: xtended
0
оу.. зачем было так отделять от текста?
Автор ответа: 1Roman1
0
Да ладно, спасибо вам двоим, может быть кому то пригодится и для Бейсика
Похожие вопросы
Предмет: Математика, автор: abykanovasaltanat2
Предмет: Химия, автор: Детёнок