ТутРешу.Ру

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

Задание:

Помогите пожалуста. Задача-введите с клавиатуры 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

Решение:

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.




Знаете другой ответ?

Отправить свой ответ