Найти сумму отрицательных элементов матрицы. Закрасить указанные элементы

@yakovdi1996 · Регистрация: 28.12.2016

Author24 — интернет-сервис помощи студентам

Найти сумму отрицательных элементов матрицы. Закрасить указанные элементы.

@Puporev · 31.12.2016, 16:55

Pascal

uses crt;
var a:array[1..20,1..20]of integer;
    m,n,i,j,s:integer;
begin
repeat
write('Количество строк от 2 до 20 m=');
readln(m);
until m in [2..20];
repeat
write('Количество столбцов от 2 до 20 n=');
readln(n);
until n in [2..20];
randomize;
s:=0;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    if a[i,j]<0 then
     begin
      s:=s+a[i,j];
      textbackground(10);
     end
    else textbackground(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
textbackground(15);
writeln('Сумма отрицательных=',s);
end.

@yakovdi1996 0 / 0 / 0 Регистрация: 28.12.2016 Сообщений: 6
		1
	Найти сумму отрицательных элементов матрицы. Закрасить указанные элементы 31.12.2016, 16:35. Показов 1673. Ответов 1 Метки нет (Все метки) Найти сумму отрицательных элементов матрицы. Закрасить указанные элементы. 0

	31.12.2016, 16:55

Найти сумму отрицательных элементов матрицы. Закрасить указанные элементы

Решение