Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 18.12.2010, 21:22   #1
Викаа-008
Новичок
Джуниор
 
Регистрация: 18.12.2010
Сообщений: 9
По умолчанию Массивы в паскале

1. В массив A{N} занесены натуральные числа. Вывести на экран индексы элементов, которые больше данного K.
2. Даны действительные числа a1, a2, ... , an (a-энное). Поменять местами наибольший и наименьший элементы.
3. Заполнить матрицу размера MxN случайными числами. Вычислить произведение всех нечетных элементов матрицы.

Помогите решить пожалуйстаааа!!!!!)))
Викаа-008 вне форума
Старый 18.12.2010, 21:26   #2
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

1.
Код:
Program kj;
const
n=20;
var
a:array [1..n] of integer;
k:integer;
i,j:integer;
begin
readln(k);
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
if a[i]>k then writeln(i);
end.
Pein95 вне форума
Старый 18.12.2010, 21:28   #3
Викаа-008
Новичок
Джуниор
 
Регистрация: 18.12.2010
Сообщений: 9
По умолчанию

Спасибо огромное!!!!!!!!)))))))
Викаа-008 вне форума
Старый 18.12.2010, 21:34   #4
Викаа-008
Новичок
Джуниор
 
Регистрация: 18.12.2010
Сообщений: 9
По умолчанию

А еще две?))))
Викаа-008 вне форума
Старый 18.12.2010, 21:38   #5
rubius2008
Форумчанин
 
Регистрация: 19.03.2010
Сообщений: 409
По умолчанию

3.Вычислить произведение всех нечетных элементов матрицы
Код:
p:=1;
for i:=1 to m do for j:=1 to n do if odd(a[i,f]) then p:=p*a[i,j];
Есть вопросы, пишите в ЛС.
rubius2008 вне форума
Старый 18.12.2010, 21:39   #6
Novi4ok_11
Форумчанин
 
Регистрация: 11.12.2010
Сообщений: 110
По умолчанию

2.
Код:
Program kj;
const
n=20;
var
a:array [1..n] of integer;
k:integer;
i,j,mini,maxi,max,min,buf:integer;
begin
readln(k);
for i:=1 to n do
a[i]:=random(20);
max:=a[1];
min:=a[1];
for i:=1 to n do
if a[i]>max then maxi:=i;
for i:=1 to n do
if a[i]<min then mini:=i;

buf:=a[maxi];
a[maxi]:=a[mini];
a[mini]:=buf;
for i:=1 to n do writeln(' ',a[i]);
end.

Последний раз редактировалось Novi4ok_11; 18.12.2010 в 21:44.
Novi4ok_11 вне форума
Старый 18.12.2010, 21:41   #7
rubius2008
Форумчанин
 
Регистрация: 19.03.2010
Сообщений: 409
По умолчанию

2. Уже не надо)
Есть вопросы, пишите в ЛС.
rubius2008 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массивы в паскале Женя2 Помощь студентам 13 06.05.2010 16:07
массивы в паскале Наташа1973 Помощь студентам 3 22.01.2010 19:58
Массивы в паскале A.S.W Помощь студентам 4 07.01.2010 22:16
Массивы в Паскале Roqi Помощь студентам 0 24.12.2009 22:14
Массивы в паскале Pihan Помощь студентам 2 12.11.2009 01:02