Категория
Информатика, опубликовано 09.01.2019 16:01

Даны две матрицы X(5,5) и Y(4,4). Найти сумму отрицательных элементов матриц и сравнить, у какой из матриц она больше.

Нужно сделать программу на языке Паскаль через массив.
Среда разработки Pascal ABCNET.

Ответы

Ответ
Ответ оставил: Гость
Var   x: array [1..5, 1..5] of real;   y: array [1..4, 1..4] of real;   i, j: byte;   sumx, sumy: real; begin sumx : = 0; sumy : = 0; writeln('массив x': 28); for i : = 1 to 5 do begin   for j : = 1 to 5 do   begin       x[i, j] : = random*40-20;       if x[i, j] < 0 then sumx : = sumx + x[i, j];       write(x[i, j]: 9: 4);   end;   writeln; end; writeln; writeln('массив y': 28); for i : = 1 to 4 do begin   for j : = 1 to 4 do   begin       y[i, j] : = random*40-20;       if y[i, j] < 0 then sumy : = sumy + y[i, j];       write(y[i, j]: 9: 4);   end;   writeln; end; writeln; writeln('сумма отрицательных массива x = ', sumx: 9: 4); writeln('сумма отрицательных массива y = ', sumy: 9: 4); if sumx > sumy then writeln('сумма отрицательных x - больше.') else if sumx < sumy then writeln('сумма отрицательных y - больше.') else writeln('сумма отрицательных x и y равны.') end.
Ответ
Ответ оставил: Гость
Координатное устройство курсор на компьютере
Ответ
Ответ оставил: Гость
Так Слушай CD-R Это Компакт Диск На Который Можно Записать Информацию Один Раз CD-RW Это Диск На Который Можно Записывать Инфо Потом Очищать И Ещё Раз Записывать С DVD И DVD-RW Тоже Самое

Ответ
Ответ оставил: Гость
Var n,m,a,b,c,d,k:longint;
function NOD(x,y:longint):longint;
var c:longint;
  begin
    while y>0 do
      begin
        c:=x mod y;
        x:=y;
        y:=c;
      end;
      NOD:=x;
  end;
Function NoK(x,y:longint):longint;
  begin
    NOK:=(x*y) div NOD(x,y);
  end;
begin
  readln(a,b,c,d);
  n:=NoK(b,d);
  a:=a*(n div b);
  c:=c*(n div d);
  m:=a+c;
  k:=nod(a,c);
  write(m div k, ,n div k);
end


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 3 на вопрос по информатике: Даны две матрицы X(5,5) и Y(4,4). Найти сумму отрицательных элементов матриц и сравнить, у какой из матриц она больше. Нужно сделать программу на языке Паскаль через массив. Среда разработки Pascal ABCNET.... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube