Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Angiiii
0 / 0 / 0
Регистрация: 09.11.2019
Сообщений: 2
1

Сформировать одномерный массив В[К], состоящий из элементов массива А

09.11.2019, 22:10. Просмотров 114. Ответов 1
Метки нет (Все метки)

Задан двухмерный массив целых чисел А размером N на М. Сформировать одномерный массив В[К], состоящий из элементов массива А в диапазоне от –2 до 5, и вычислить их сумму.(delphi 7)
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.11.2019, 22:10
Ответы с готовыми решениями:

1

AHBAR
369 / 317 / 216
Регистрация: 05.04.2013
Сообщений: 1,430
11.11.2019, 07:12 2
Angiiii,
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
27
28
29
30
31
32
33
34
procedure TForm1.Button1Click(Sender: TObject);
VAR
a:array of array of Integer;
b:array of Integer;
i,j, //счетчики
n,m,k, //размерность массивов
s //сумма
:Integer;
begin
n := StrToInt(Edit1.Text);
m := StrToInt(Edit2.Text);
SetLength(a, n, m);
StringGrid1.RowCount := n;
StringGrid1.ColCount := m;
 
S := 0;
k := 0;
randomize;
for i := 0 to n-1 do
for j := 0 to m-1 do Begin
    a[i,j] := Random(41)-20;
    StringGrid1.Cells[j,i] := IntToStr(a[i,j]);
    if (a[i,j] >= -2) and (a[i,j] <= 5) then Begin
        k := k + 1;
        SetLength(b, k);
        StringGrid2.RowCount := k;
        b[k-1] := a[i,j];
        StrinGgrid2.Cells[0,k-1] := IntToStr(a[i,j]);
        s := s + a[i,j];
        End;
    End;
 
Label3.Caption := 'Сумма:' + #13#10 + IntToStr(s);
end;
0
Миниатюры
Сформировать одномерный массив В[К], состоящий из элементов массива А  
Вложения
Тип файла: zip matr2.zip (7.7 Кб, 0 просмотров)
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.11.2019, 07:12

Заполнить одномерный массив, состоящий из 30 элементов, числами кратными 25 затем отсортировать
Здравствуйте, у меня вот какая проблема мне нужно составить вот какую программу: Заполнить...

Сформировать двумерный массив, состоящий из четных чисел одномерного массива
Дан одномерный массив А (2N). Сформировать двумерный массив, состоящий из четных чисел одномерного...

Сформировать новый массив, состоящий из нечетных элементов заданного, и найти в нем наименьший элемент
массив задан датчиком случайных чисел на интервале .сформировать новый массив b состоящий из...


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

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

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