Найти номера строк, все элементы которых равно 0. Если таких нет, то вывести сообщение.

@Simpak · Регистрация: 10.05.2011

№1: Дан двумерный квадратный массив. Найти номера строк, все элементы которых равно 0. Если таких нет, то вывести сообщение. Использовать подпрограммы.
№2:Найти количество элементов каждого столбца, меньше среднего арифметического всех его элементов. Использовать подпрограммы.
№3:Методом вставки отсортировать элементы массива по убыванию.

Спасайте!!!!!! Завтра нужно сдать. Буду очень благодарен.

Добавлено через 1 час 3 минуты
ну хоть кто-нибудь!!! хоть одно задание!!!!

Добавлено через 22 часа 26 минут
Что, никто не знает двумерные массивы???

@Sp1ne · 13.05.2011, 16:38

Первая задача

Pascal

uses
  crt;
 
var
  a: array [1..20, 1..20] of real;
  i, j, k, n, s: integer;
 
begin
  clrscr;
  write('Введите размер матрицы: ');
  read(n);
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']= ');
      readln(a[i, j]);
    end;
  WRITELN;
  WRITELN;
  writeln('Исходная матрица ', n, 'x', n, ': ');
  for i := 1 to n do
  begin
    for j := 1 to n do
      WRITE(a[i, j]:2:0, ' ');
    WRITELN;
  end;
  k := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do 
    begin
      if a[i, j] = 0 then
      begin
        k := k + 1;
        s := s + 1;
      end;
    end;
    if k = n then writeln(i, ' строка состоит из нулей! ');
    k := 0;
  end;
  if s = 0 then writeln('В матрице нет нулевых строк');
end.

@Simpak · 13.05.2011, 21:41 **[ТС]**

Большое спасибо.
кто поможет №2 и №3???

@Simpak 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 10
		1
	Найти номера строк, все элементы которых равно 0. Если таких нет, то вывести сообщение. 12.05.2011, 22:00. Показов 1681. Ответов 2 Метки нет (Все метки) №1: Дан двумерный квадратный массив. Найти номера строк, все элементы которых равно 0. Если таких нет, то вывести сообщение. Использовать подпрограммы. №2:Найти количество элементов каждого столбца, меньше среднего арифметического всех его элементов. Использовать подпрограммы. №3:Методом вставки отсортировать элементы массива по убыванию. Спасайте!!!!!! Завтра нужно сдать. Буду очень благодарен. Добавлено через 1 час 3 минуты ну хоть кто-нибудь!!! хоть одно задание!!!! Добавлено через 22 часа 26 минут Что, никто не знает двумерные массивы??? __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Simpak 0 / 0 / 0 Регистрация: 10.05.2011 Сообщений: 10
	13.05.2011, 21:41 [ТС]	3
	Большое спасибо. кто поможет №2 и №3??? 0

Опции темы

Найти номера строк, все элементы которых равно 0. Если таких нет, то вывести сообщение.

Решение