Помогите пожалуста. Задача-введите с клавиатуры n чисел

Question

Помогите пожалуста. Задача-введите с клавиатуры n чисел. Вывести на экран колечество чисел превосходящих первое число. Я пишу-begin ClrScr; k: =0; for i: =1 to n do begin write (введите число'); readln (n); end; for i: =1 to n do begin if m[i]>m[1] then k: =k+1; end; write (' чисел превосходящих первое число- ',k); у меня всегда выводит 0

Answer 1

77

givvi

02 февраля 2023

Program zadacha; var k,x,i,n: integer; m: Array[1… 100] of Integer; begin k: =0; readln (n); for i: =1 to n do begin readln (m[i]); end; for i: =2 to n do begin if m[i]>m[1] then k: =k+1; end; write (k); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: