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

исправьте ошибку

23.05.2013, 23:57. Просмотров 428. Ответов 2
Метки нет (Все метки)

Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке [-25,25]. Найти максимальный элемент каждой строки. Результат получить в виде одномерного массива. Вывести исходный массив и полученный результат на печать.
надо чтобы сумму матрицы отрицательных элементов выводил не общую, а для каждой строки матрицы. (к примеру у меня матрица размерности 10 ,то есть 10 строк . и после этих 10 строк надо чтобы программа считала десять сумм для каждой строки


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
35
procedure TForm1.Button1Click(Sender: TObject);
const n=10;
Var a:array[1..n,1..n]  of integer;
i,j:integer;
q,stroka,w:string;
s:real;
Begin
Memo1.Clear;
Memo2.Clear;
Randomize;
 
s:=0;
 
for i:=1 to n do
begin
   stroka:=' ';
  for j:=1 to n do
  begin
  a[i,j]:=random(51)-25;
  q:= inttostr (a[i,j]);
  stroka:=stroka +' '+ q;
  Memo1.Lines.Add(q);
 
       if  a[i,j]<0 then
       begin
       s:=s+a[i,j];
       end;
 
  end;
 Memo1.Lines.Add(' ');
 Memo2.Lines.Add(stroka);
end;
Memo2.Lines.Add('сумма отриц. элем.=' +floatToStr(s));
End;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2013, 23:57
Ответы с готовыми решениями:

исправьте ошибку
program Project5; {$APPTYPE CONSOLE} uses SysUtils; var a:array of integer; ...

Исправьте ошибку
Здравствуйте есть код procedure TForm1.Chromium1BeforePopup(Sender: TObject; const...

исправьте ошибку в рекурссии
function rec(n,a:real):real; var f:real; implementation {$R *.dfm} function...

Исправьте ошибку в программе!
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

2
MrOnlineCoder
24.05.2013, 01:18
  #2

Не по теме:


Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке [-25,25].
Очень много тем с этими словами. Вы не основатель аккаунта arondondon? здесь тоже это

0
0 / 0 / 1
Регистрация: 30.04.2013
Сообщений: 14
24.05.2013, 02:35  [ТС] 3
нет
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2013, 02:35

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

Исправьте ошибку нужно
Исправьте ошибку срочно нужно архив с прогой ниже

Исправьте ошибку в программе
С помощью логической переменной проверьте, что (a+b) кратно 7. Исправьте код procedure...

Исправьте ошибку в программе
Дано расстояние в метрах. Найти число полных километров в нем. Элементарная задача , а парюсь...

Исправьте ошибку пожалуйста
Посмотрите пожалуйста и исправьте ошибку пожалуйста


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

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

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