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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 15.12.2008, 19:05   #1
Dark_Zealot
 
Регистрация: 01.12.2008
Сообщений: 4
По умолчанию Задачи на массивы в Паскале

Люди! Очень прошу вас о помощи! Препод дал на завтра две задачи на массивы, а я вообще не понимаю как их решить... Решите ПОЖАЛУЙСТА, очень прошу...
1)Составить программу нахождения чаще всего встречающегося элемента в массиве С(М,М);
2)Составить программу, заменяющую отрицательный элемент массива А(Q,Q) нулями.
Dark_Zealot вне форума
Старый 15.12.2008, 19:23   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

1
Код:
const n=10;
type Tel=record
      value,i:integer;
      end;
var i,j,maxi,maxj,k,l:integer;
    a:array[1..n,1..n] of TEl;

begin
for i:=1 to n do
begin
 for j:=1 to n do
   begin
    a[i,j].value:=random(5)+1;
    a[i,j].i:=0;
    write(a[i,j].value:2);
   end;
writeln;
end;
for i:=1 to n do
 for j:=1 to n do
   for l:=1 to n do
    for k:=1 to n do
  if a[i,j].value=a[k,l].value then inc(a[i,j].i);
maxi:=1;maxj:=1;
writeln;
for i:=1 to n do
 for j:=1 to n do
 if a[i,j].i>a[maxi,maxj].i then begin
                                  maxi:=i;maxj:=j;
                                 end;
writeln(a[maxi,maxj].value);
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума
Старый 15.12.2008, 19:26   #3
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

2
Код:
const n=10;
var i,j:integer;
    a:array[1..n,1..n] of integer;

begin
for i:=1 to n do
begin
 for j:=1 to n do
   begin
    a[i,j]:=random(20)-random(15);
    write(a[i,j]:3);
   end;
writeln;
end;
writeln('============================');
for i:=1 to n do
begin
 for j:=1 to n do
 begin
  if a[i,j]<0 then a[i,j]:=0;
  write(a[i,j]:3);
 end;
writeln;
end;
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума
Старый 21.12.2009, 19:14   #4
joker2019
Новичок
Джуниор
 
Регистрация: 21.12.2009
Сообщений: 1
По умолчанию

Здравствуйте, помогите пожалуйста, преподы задрали, не разбираюсь в массивах. Вот задача:
Дано произвольное значение b и два произвольных массива G,V размера n,m соответственно. Найти сумму элементов массива G, меньших заданного b, а также сумму элементов массива V, меньших заданного b. Исходные данные взять самостоятельно.

Буду благодарен!
joker2019 вне форума
Старый 21.12.2009, 19:54   #5
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

Стучи в аську! Сделаю!
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума
Старый 08.01.2010, 12:16   #6
Nordak
Новичок
Джуниор
 
Регистрация: 08.01.2010
Сообщений: 1
По умолчанию

а не поможите мне пожалуста, до завтра мне сказали сделать по массиву
1)В каждой строке заданой матрицы А(N,M) вычислить сумму количество и среднее арифметическое положительных элементов
пожалуста буду оч. признателен
Nordak вне форума
Старый 08.01.2010, 13:49   #7
Samyrai
 
Регистрация: 28.10.2009
Сообщений: 2
По умолчанию

Nordak, звони в скайп, у меня есть подобная задача.
Samyrai вне форума
Старый 08.01.2010, 17:02   #8
MaxTi
Новичок
Джуниор
 
Регистрация: 08.01.2010
Сообщений: 2
По умолчанию

хелп плиз с задачей
задан массив Ri, где i=1...n. Найти значение индексов максимального и минимального чисел массива, вывести их на экран?
MaxTi вне форума
Старый 08.01.2010, 17:05   #9
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

MaxTi
Код:
uses crt;
var
i,n:integer ;
a:array[1..100] of integer;
max,min,im1,im2:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
clrscr;
max:=a[1];min:=a[1];im1:=1;im2:=1;
For i:=1 to n do begin
write(a[i]:4);
if a[i]>max then begin max:=a[i]; im1:=i;end;
if a[i]<min then begin min:=a[i]; im2:=i;end;
end;
writeln('min=',min,' index=',im2);
writeln('max=',max,' index=',im1);
readln;
end.
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.

Последний раз редактировалось ОДИНОЧЕСТВО В СЕТИ; 08.01.2010 в 17:15.
ОДИНОЧЕСТВО В СЕТИ вне форума
Старый 08.01.2010, 17:23   #10
MaxTi
Новичок
Джуниор
 
Регистрация: 08.01.2010
Сообщений: 2
По умолчанию

Цитата:
Сообщение от ОДИНОЧЕСТВО В СЕТИ Посмотреть сообщение
MaxTi
Код:
uses crt;
var
i,n:integer ;
a:array[1..100] of integer;
max,min,im1,im2:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
clrscr;
max:=a[1];min:=a[1];im1:=1;im2:=1;
For i:=1 to n do begin
write(a[i]:4);
if a[i]>max then begin max:=a[i]; im1:=i;end;
if a[i]<min then begin min:=a[i]; im2:=i;end;
end;
writeln('min=',min,' index=',im2);
writeln('max=',max,' index=',im1);
readln;
end.
огромное спс
MaxTi вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Две задачи на массивы. Nadi Помощь студентам 4 25.04.2011 16:58
Паскаль. задачи на массивы rant Помощь студентам 27 20.04.2010 09:33
Задачи на С++.Тема:Массивы Wia Помощь студентам 7 20.12.2008 16:01
Pascal задачи на массивы SweetOpium Помощь студентам 9 08.05.2008 20:40
Задачи на двумерные массивы Exact Паскаль, Turbo Pascal, PascalABC.NET 6 06.12.2007 12:50