Опубликовано 5 лет назад по предмету Информатика от 1Roman1

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

Паскаль

Ответ

Ответ дан magica

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

Ответ дан xtended

Пишу на 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
1. Ответ
  
  Ответ дан xtended
  
  Хотя наверняка можно проще и короче
2. Ответ
  
  Ответ дан magica
  
  Написано же, что Паскаль :)
3. Ответ
  
  Ответ дан xtended
  
  оу.. зачем было так отделять от текста?
4. Ответ
  
  Ответ дан 1Roman1
  
  Да ладно, спасибо вам двоим, может быть кому то пригодится и для Бейсика

Самые новые вопросы

Математика - 5 лет назад

География - 5 лет назад

Математика - 5 лет назад

Русский язык - 5 лет назад

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