|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Не могу понять как работать с массивом!
Подскажите как ,вводя массив с клавы, выдать в edit2 Сколько отрицательных чисел!
|
#2
|
|||
|
|||
Пусть у нас:
Код:
var A: Array [0..99] of integer; Count: integer; i: integer; Код:
Count:=0; for i:=0 to 99 do begin if A[i]<0 then inc(Count) end; edit2.Text:=IntToStr(Count); |