61

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

vasyaz 22 марта 2023

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

категория: информатика

77

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.

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

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
travnik, 22 марта 2023
Сделай из волка козу
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...