Разработка программ для работы с двумерными массивами

@AdnsAdcl · Регистрация: 17.10.2019

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

Если не сложно ,помогите с заданием

Задание:
Дан массив целых случайных чисел (в диапазоне от -8 до 11) размерности m*n. Числа m и n вводятся пользователем. Найдите вектор, который задается по следующему условию: если сумма элементов столбца больше введенного пользователем числа, то задается значение 1, если меньше, то 0.

@ZX Spectrum-128 · 23.12.2019, 18:34

Pascal

const
  n = 7;
  m = 5;
 
var
  q, j, i: integer;
  a: array [1..n, 1..m] of integer;
  b: array [1..m] of integer;
 
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -11 + random(20);
      Write(a[i, j]:4);
    end;
    writeln;
  end;
  readln(q);
  for j := 1 to m do
  begin
    b[j] := 0;
    for i := 1 to n do
      b[j] := b[j] + a[i, j];
    if b[j] < q then
      b[j] := 0
    else
      b[j] := 1;
  end;
  for i := 1 to m do
    Write(b[i]:4);
end.

@AdnsAdcl 0 / 0 / 0 Регистрация: 17.10.2019 Сообщений: 11
		1
	Разработка программ для работы с двумерными массивами 22.12.2019, 21:46. Показов 381. Ответов 1 Метки нет (Все метки) Если не сложно ,помогите с заданием Задание: Дан массив целых случайных чисел (в диапазоне от -8 до 11) размерности m*n. Числа m и n вводятся пользователем. Найдите вектор, который задается по следующему условию: если сумма элементов столбца больше введенного пользователем числа, то задается значение 1, если меньше, то 0. 0

Опции темы