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

@ono11 · Регистрация: 06.02.2013

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

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

@CodeR · 07.02.2013, 09:39

Pascal

Uses Crt;
Const n=4;m=6;
Var A:array[1..n,1..m] of integer;
    B:array[1..n] of byte;
    i,j,t:integer;
Begin
    ClrScr;Randomize;
    For i:=1 to n do
     For j:=1 to m do
     Begin
       write('A[',i,',',j,'] = ');
       readln(A[i,j]);
     End;
    ClrScr;
    write('Введите число: ');readln(t);
    writeln('Введенная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        write(A[i,j]:4);
        if A[i,j]>t then inc(B[i]);
      End;
      writeln;
    End;
    writeln('Полученный массив');
    For i:=1 to n do
     write(B[i]:3);
    readln;
End.

@ono11 0 / 0 / 0 Регистрация: 06.02.2013 Сообщений: 4
		1
	Сформировать массив, каждый элемент которого равен количеству элементов соответствующей строки 06.02.2013, 17:08. Показов 2334. Ответов 1 Метки нет (Все метки) Дан двумерный массив размер 4*6,заполненный целыми числами с клавиатуры. Сформировать одномерный массив,каждый элемент которого равен количеству элементов соответствующей строки,больших данного числа. 0

	07.02.2013, 09:39

Опции темы

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

Решение