Сформировать одномерный массив, каждый элемент которого равен кол-ву отрицательных элементов, кратных 3 или 5

@Seprente · Регистрация: 30.03.2017

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

Дан двумерный массив 4 на 5 заполненный целыми числами с клавиатуры сформировать одномерный массив каждый элемент которого равен кол-ву отрицательных элементов кратный 3 или 5, соответствующей строки.

@Hitoku · 07.04.2017, 01:51

Pascal

const n=4;m=5;
var
  a:array[1..n,1..m] of integer;
  b:array[1..n] of integer;
  k,i,j:byte;
begin
  for i:=1 to n do
    for j:=1 to m do begin
      write('[',i,',',j,'] = ');
      readln(a[i,j]);
    end;
  for i:=1 to n do begin
    k:=0;
    for j:=1 to m do begin
      write(a[i,j]:3,' ');
      if (a[i,j]<0) then
        if (a[i,j] mod 3 = 0) or (a[i,j] mod 5 = 0) then
          k:=k+1;
    end;
    writeln;
    b[i]:=k;
  end; writeln;
  for i:=1 to n do write(b[i],' ');
end.

@Seprente 0 / 0 / 0 Регистрация: 30.03.2017 Сообщений: 6
		1
	Сформировать одномерный массив, каждый элемент которого равен кол-ву отрицательных элементов, кратных 3 или 5 06.04.2017, 20:28. Показов 1443. Ответов 1 Метки нет (Все метки) Дан двумерный массив 4 на 5 заполненный целыми числами с клавиатуры сформировать одномерный массив каждый элемент которого равен кол-ву отрицательных элементов кратный 3 или 5, соответствующей строки. 0

	07.04.2017, 01:51

Опции темы

Сформировать одномерный массив, каждый элемент которого равен кол-ву отрицательных элементов, кратных 3 или 5

Решение