Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 160964
20.02.2009, 10:32
0.00 руб.
0 3 1
Компьютеры Программирование
Помогите пожалуйста на Паскаль!
В массив С записать индексы положительных элементов исходного массива M(A). Предусмотреть случай, когда в массиве нет положительных элементов.

Обсуждение

Неизвестный
20.02.2009, 10:35
общий
Помогите пожалуйста на Паскаль.
Задача на корректировку двумерных массивов.
В массиве А(K,L) исключить строку, содержащую наибольшее количество нулевых элементов
Неизвестный
20.02.2009, 12:23
общий
это ответ
Здравствуйте, Rutra!

В программе заполняем массив М случайным образом
перебирая элементы выносим их индексы в массив С
если массив С пуст выдаем сооьветствующее сообщение.

Приложение:
var M:array [1..20]of integer;
C:array [1..20]of integer;
n,nc,i:integer;
begin
nc:=0;
randomize;
n:=random(10)+10;
for i:=1 to n do
M[i]:=random(198)-99;
writeln('Ishodnyj massiv');
for i:=1 to n do
write(M[i]:4);
writeln;
for i:=1 to n do
if M[i]>0 then
begin
nc:=nc+1;
C[nc]:=i;
end;
if nc>0 then
begin
writeln('Indexy');
for i:=1 to nc do
write(C[i]:3);
end
else
writeln('Net polojitelnyh elementov');
readln;
end.
Неизвестный
21.02.2009, 07:11
общий
Спасибо большое
Форма ответа