дана действительная матрица В(5,6)

@nutochka · Регистрация: 05.11.2013

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

очень очень прошу помочь нужно сдать в течении 30 минут.. дана действительная матрица В(5,6). элементы четвертого столбца заменить суммой положительных элементов каждой строки.

@newyork7776 · 26.11.2013, 12:05

актуально?

Добавлено через 7 минут

Кликните здесь для просмотра всего текста

Pascal
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
program nutochka;
{$APPTYPE CONSOLE}
uses SysUtils;
var mas:array [1..5,1..6] of Integer;
    s:array [1..6] of Integer;
    i,j:Integer;
begin
Randomize;
  Writeln(' Array [start]');
  for i:=1 to 5 do
    begin
      s[i]:=0;
      for j:=1 to 6 do
        begin
           mas[i,j]:=random(10);
           s[i]:=s[i]+mas[i,j];
           write(mas[i,j],' ');
        end;
    Writeln;
    end;
  for i:=1 to 6 do
    begin
      mas[i,4]:=s[i];
    end;
  Writeln(' Array [finish]');
  for i:=1 to 5 do
    begin
      for j:=1 to 6 do
      begin
        write(mas[i,j],' ')
      end;
    writeln;
    end;
Readln;
end.

вот набросал код

Добавлено через 57 секунд
можна удалить строку 1 2 3

@nutochka · 26.11.2013, 12:22 **[ТС]**

выдает ошибка диапазона на 23 строке

@bormant · 26.11.2013, 12:34

А если вот так:

Pascal
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
const
  LIM = 200; W = 8; D = 2;
  m = 5; n = 6; k = 4;
var
  b: array [1..m, 1..n] of real;
  s: real;
  i, j: integer;
begin
  Randomize;
  WriteLn('B =');
  for i := 1 to m do begin
    for j := 1 to n do begin
      b[i, j] := LIM * (0.5 - Random);
      Write(b[i, j]:W:D);
    end;
    WriteLn;
  end;
  for i := 1 to m do begin
    s := 0;
    for j := 1 to n do
      if b[i, j] > 0 then s := s + b[i, j];
    b[i, k] := s;
  end;
  WriteLn('Результат:');
  for i := 1 to m do begin
    for j := 1 to n do
      Write(b[i, j]:W:D);
    WriteLn;
  end;
end.

@newyork7776 · 26.11.2013, 12:51

nutochka, а какой компилятор?

Добавлено через 3 минуты

Кликните здесь для просмотра всего текста

Pascal
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
var mas:array [1..5,1..6] of Integer;
    s:array [1..6] of Integer;
    i,j:Integer;
begin
Randomize;
  Writeln(' Array [start]');
  for i:=1 to 5 do
    begin
      s[i]:=0;
      for j:=1 to 6 do
        begin
           mas[i,j]:=random(10);
           s[i]:=s[i]+mas[i,j];
           write(mas[i,j],' ');
        end;
    Writeln;
    end;
  for i:=1 to 5 do
    begin
      mas[i,4]:=s[i];
    end;
  Writeln(' Array [finish]');
  for i:=1 to 5 do
    begin
      for j:=1 to 6 do
      begin
        write(mas[i,j],' ')
      end;
    writeln;
    end;
Readln;
end.

вот тепер нормально

Добавлено через 30 секунд
1 - програмка на Delphi7
2 - PascalABCNet

@nutochka · 27.11.2013, 15:32 **[ТС]**

спасибо большое за помощь

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@nutochka 0 / 0 / 0 Регистрация: 05.11.2013 Сообщений: 29

	дана действительная матрица В(5,6) 26.11.2013, 11:35. Показов 560. Ответов 5 Метки нет (Все метки) очень очень прошу помочь нужно сдать в течении 30 минут.. дана действительная матрица В(5,6). элементы четвертого столбца заменить суммой положительных элементов каждой строки. 0

@nutochka 0 / 0 / 0 Регистрация: 05.11.2013 Сообщений: 29
	26.11.2013, 12:22 [ТС]
	выдает ошибка диапазона на 23 строке 0

@nutochka 0 / 0 / 0 Регистрация: 05.11.2013 Сообщений: 29
	27.11.2013, 15:32 [ТС]
	спасибо большое за помощь 0