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