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

@Виталий96 · Регистрация: 23.12.2014

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

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

@ghost_strike · 25.12.2014, 00:24

Pascal

const
    y_max = 4;
    x_max = 5;
type
    Matrix = array[1 .. y_max, 1 .. x_max] of integer;
var
    M : Matrix;
    a : array [1 .. y_max] of integer;
    y, x : integer;
begin
    for y := 1 to y_max do
        begin
        a[y] := 0;
        for x := 1 to x_max do
            begin
            read(M[y,x]);
            if( (M[y,x] < 0) and ( ((M[y,x] mod 3) = 0) or ((M[y,x] mod 5) = 0) ) ) then
                inc(a[y]);
            end;
        end;
        
    for y := 1 to y_max do
        write(a[y] , ' ');
end.

@Виталий96 0 / 0 / 0 Регистрация: 23.12.2014 Сообщений: 15
		1
	Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов 24.12.2014, 20:29. Показов 2039. Ответов 1 Метки нет (Все метки) 4.1 Дан двумерный массив размерностью 4 х 5, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов, кратных 3 или 5, соответствующей строки 0

	25.12.2014, 00:24

Опции темы

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

Решение