Помогите, пожалуйста. Лабораторная работа по информатике. В простую переменную

Помогите, пожалуйста. Лабораторная работа по информатике.
В ординарную переменную поочередно вводятся 5 чисел. Найти наибольшее значение и количество чисел, одинаковых максимуму.
Буду ооооочень признательна. +50 баллов)))
если получится, сможете посодействовать еще с отчетом? (Блок-схема, оформление и т.д.)
(работа выполняется через паскаль)

Задать свой вопрос
Надежда
Это нечаянно не массив ?
Зусман Агата
А не обычная переменная
Тимур Полепушко
просто переменная, это 7 класс, мы такое не проходили(
София Основина
а все сообразил
Ilja Jernih
получится?
Кирилл Берк
а циклы размышляю теснее учили
Ольга
да
Артём
ну как? выходит?
Заложных Андрюша
Ну как?
Олег Шиловский
???
1 ответ
Varn,a,b,i,max:integer;beginwriteln('vvedite kol-vo chisel N');readln(n);max:=0;for i:=1 to  n dobeginwriteln('vvedite ',i,' chislo');readln(a);if max = a theninc(b);if max lt; a thenmax:=a;end;writeln('max=',max);writeln('Количество елементов которые одинаковы максимуму ',b);end.
Камилла Лапшанкская
вот ели нашел метод написать так чтоб понятно было вам ,
Лидия
varn,a,b,i,max:integer;beginwriteln('vvedite kol-vo chisel N');readln(n);max:=0;for i:=1 to n dobeginwriteln('vvedite ',i,' chislo');readln(a);if max = a theninc(b);if max < a thenmax:=a;end;writeln('max=',max);writeln('Количество елементов которые равны максимуму ',b);end.
Борис Руденченко
так читабельней код
Даниил Сеуткин
спасибо огромное)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Егор Павлиан
очень)))))))))))))))) благодарна
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт