Форум программистов  
Главная  |  Правила форума  |  Исходники Delphi  |  Основы Delphi  |  Блог программистов  |  Рассылка  |  Повторная активизация e-mail  | 

Вернуться   Форум программистов > Новички в программировании > Помощь студентам


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

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

icq: 450490пять84
По умолчанию

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
Репутация: 254

icq: 450490пять84
По умолчанию

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
Репутация: 10
По умолчанию

Здравствуйте, помогите пожалуйста, преподы задрали, не разбираюсь в массивах. Вот задача:
Дано произвольное значение 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
Репутация: 277

icq: 529-3-977
По умолчанию

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

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

icq: 355964143
skype: lSamyrail
По умолчанию

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

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

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
Репутация: 10
По умолчанию

Цитата:
Сообщение от ОДИНОЧЕСТВО В СЕТИ Посмотреть сообщение
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 вне форума  
Закрытая тема


Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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




06:43.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

Forex с Admiral Markets — это надежно


Работа на Forex с 2000 года. Очное и дистанционное обучение. Выгодные условия.
магазин горящих туров


более 1000 горящих предложений ежедневно
Бэбиблог - соц сеть для будущих мам


RusProfile.ru


Справочник российских юридических лиц и организаций.