сервис вопросов и ответовДан двумерный квадратный массив. Найти номера строк, все элементы которых равны нулю.
10-11 класс|
|
Викир
16 нояб. 2016 г., 5:24:32 (7 лет назад)
гестия
16 нояб. 2016 г., 6:04:17 (7 лет назад)
var a:array[1..1000,1..1000] of integer;
zero,zero1,j,i,n:integer;
begin
writeln('Vvedite razmernost massiva NxN');
readln(n);
for i:= 1 to n do
begin
for j:= 1 to n do begin
write('a[',i,',',j,']:=');
read(a[i,j]);
end;
end;
zero := 0;
for i := 1 to n do
begin
for j := 1 to n do
begin
if a[i, j] = 0 then
begin
zero := zero + 1;
zero1 := zero1 + 1;
end;
end;
if zero = n then writeln(i, ' stroka sostoit iz nulei ');
zero := 0;
end;
if zero1 = 0 then writeln('Net nulevix strok');
end.
Ответить
Другие вопросы из категории
Ребятушки,помогите,пожалуйста,очень прошу:*
Текст переводится из КОИ-8 в юникод.Объём этого текста,полученного уже в юникоде,равен 32 бит.Найти N.
Читайте также
Дана целочисленная квадратная матрица. Найти число строк, сумма элементов которых равна сумме элементов главной диагонали данной матрицы.
Нужна на языке си.
1. Сформировать внутреннюю и внешнюю файл-функцию.
//Задан одномерный массив,вывести на печать все элементы, которые равны первому.
const n=5;
Var A:array[1..n] of integer;
i:integer;
Begin
// Формируем и выводим массив
Writeln(' Массив: ');
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(A[i]:2);
end;
Writeln();
// Находим элементы, которые равны первому.
Writeln(' Первому элементу равны:');
For i:=1 to n do
begin
If (A[1]=A[i]) then
Write(A[i]:2)
end;
end.
Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,20].
Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.напишите пожалуйста программу в лазарусе
Введите с клавиатуры одномерный массив S(K), элементами которого являются положительные и отрицательные числа. Найдите среднее арифметическое значение
среди последних 9-ти элементов массива, максимум среди первых 5-ти элементов. Замените в массиве все элементы, которые больше найденного среднего арифметического - на максимум.
Вы находитесь на странице вопроса "Дан двумерный квадратный массив. Найти номера строк, все элементы которых равны нулю.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.