Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 19.06.2019
Сообщений: 9
1

Массив: Вычислить количество нулевых элементов, сумму положительных элементов и среднее значение отрицательных элементов

19.06.2019, 07:57. Просмотров 561. Ответов 3
Метки нет (Все метки)

дан массив A(10). Вычислить количество нулевых элементов, сумму положительных элементов и среднее значение отрицательных элементов массива ,,, задание делать в форме со string grid
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2019, 07:57
Ответы с готовыми решениями:

Вычислить сумму и количество отрицательных, положительных и нулевых элементов массива
Нужно передать одномерный массив через функцию Условие задачи: Вычислить сумму и количество...

Определить среднее арифметическое значение отрицательных элементов и количество нулевых элементов
А(20), В(35) определить среднее арифметическое значение отрицательных элементов и количество...

Вычислить сумму отрицательных, произведение положительных и количество нулевых элементов массива с нечетными индексами.
Народ выручайте :D у меня заходы уже. задачка с одномерным массивом. Вычислить сумму...

Вычислить количество нулевых элементов и сумму отрицательных элементов
Написать программу для вычисления количества нулевых элементов и сумму отрицательных элементов...

3
494 / 396 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
19.06.2019, 10:27 2
MALprogrammist,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure TForm1.Button1Click(Sender: TObject);
VAR
a:array[0..9] of integer;
i,Count0, Count1, s : Integer;
sr : double;
str : String;
begin
randomize;
count0 := 0;
count1 := 0;
s := 0;
sr := 0;
for i := 0 to 9 do begin
    a[i] := Random(21) - 10;
    StringGrid1.Cells[0,i] := IntToStr(a[i]);
    if a[i] = 0 then inc(count0);
    if a[i] > 0 then s := s + a[i];
    if a[i] < 0 then begin sr := sr + a[i]; inc(count1) end;
    end;
str := '';
if count0 = 0 then str := str + 'Нет нулевых элементов' + #13#10 else str := str + 'Нулевых элементов = ' + IntToStr(count0) + #13#10;
if s = 0 then str := str   + 'Нет (+) элементов' + #13#10 else str := str + 'Сумма (+) элементов = ' + IntToStr(s) + #13#10;
if count1 = 0 then str := str + 'Нет (-) элементов' else str := str + 'Среднее значение (-) элементов = ' + FloatToStr(sr/count1);
 
ShowMessage(Str);
end;
0
Миниатюры
Массив: Вычислить количество нулевых элементов, сумму положительных элементов и среднее значение отрицательных элементов  
0 / 0 / 0
Регистрация: 19.06.2019
Сообщений: 9
23.06.2019, 20:16  [ТС] 3
Спасибо большое ! Еще Можешь пажалуйсто комментарии написать прошу
0
494 / 396 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
25.06.2019, 13:59 4
Цитата Сообщение от MALprogrammist Посмотреть сообщение
комментарии
актуально?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.06.2019, 13:59

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Для одномерного массива Х(N) вычислить сумму квадратов положительных элементов и среднее арифметическое отрицательных элементов.
помогите плиз. вот задание 1. Для одномерного массива Х(N) вычислить сумму квадратов положительных...

Вычислить сумму и количество отрицательных элементов и количество нулевых элементов
Помогите пожалуйста))Задание такое:Вычислить сумму и количество отрицательных элементов и...

Вычислить количество отрицательных, нулевых и положительных элементов массива
Помогите пожалуйста решить задачу ! Дан одномерный массив чисел. Вычислить количество...

Вычислить количество положительных, отрицательных и нулевых элементов матрицы
Обработать матрицу, элементами которой являются случайные значение функции f(x)=x; x∈....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.