|
Вопрос # 3 588/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Дано масив A[m,n] целих чисел.Вивести етот масив на екран, подщитать количество нулевых елементов та вывести их индекси.Никак немогу подщитать количество нулевых елементов та вывести их индекси.Помогите Pleas! Заранее благодорю!
 |
Вопрос задал: Дмитриев Сергей Анатольевич (статус: Посетитель)
Вопрос отправлен: 26 декабря 2009, 21:23
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Жикльор
Здравствуйте, Дмитриев Сергей Анатолильевич!
Вот и еще одна!!! Не могу даже представить, как вы будете сессию сдавать 8-)) Код в приложении.
Приложение: Переключить в обычный режим- program Project2;
-
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils;
- var
- mas: array [1..3,1..3] of integer;
- i,j,count: integer;
- begin
- Randomize;
- count:=0;
- writeln('Masiv:');
- for i:=1 to 3 do
- begin
- for j:=1 to 3 do
- begin
- mas[i,j]:=Random(3);
- write(mas[i,j]);
- end;
- writeln;
- end;
- write('0 naxodytsa v masive po indexam');
- for i:=1 to 3 do
- for j:=1 to 3 do
- if mas[i,j] = 0 then
- begin
- count:=count+1;
- write('[',i,',',j,']');
- end;
- writeln;
- writeln('Vsogo nuliv ',count);
- readln;
- end.
-
 |
Ответ отправил: Жикльор (статус: 5-ый класс)
Время отправки: 26 декабря 2009, 21:58
Оценка за ответ: 5
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
