![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Для заданного целочисленного массива вычислить среднее из элементов, больших 50.Если таких элементов нет, вывести в компонент вывода строку (Элемент не найден). И надо обязательно использовать компонент memo. Помогите доделать завтра надо сдать((((((
Код:
procedure TForm1.Button1Click(Sender: TObject); var k,sum:real; i,a,b:integer; a:array [1..100] of integer; begin k:=0; sum:=0; for i := 1 to a do begin if (b>50) then begin k:=k+1; sum:=sum+b; end; end; if (sum=0) then else end; end. |