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

Question

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

Comments

Это случайно не массив ?

---

А не простая переменная

---

просто переменная, это 7 класс, мы такое не проходили(

---

а все понял

---

получится?

---

а циклы думаю уже учили

---

да

---

ну как? получается?

---

Ну как?

---

???

Answer 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 < a thenmax:=a;end;writeln('max=',max);writeln('Количество елементов которые равны максимуму ',b);end.

Comments

вот ели нашел способ написать так чтобы понятно было вам ,

---

var
n,a,b,i,max:integer;
begin
writeln('vvedite kol-vo chisel N');
readln(n);
max:=0;
for i:=1 to n do
begin
writeln('vvedite ',i,' chislo');
readln(a);
if max = a then
inc(b);
if max < a then
max:=a;
end;
writeln('max=',max);
writeln('Количество елементов которые равны максимуму ',b);
end.

---

так читабельней код

---

спасибо большое)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))

---

очень)))))))))))))))) благодарна