Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

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

Люди! Очень прошу вас о помощи! Препод дал на завтра две задачи на массивы, а я вообще не понимаю как их решить... Решите ПОЖАЛУЙСТА, очень прошу...
1)Составить программу нахождения чаще всего встречающегося элемента в массиве С(М,М);
2)Составить программу, заменяющую отрицательный элемент массива А(Q,Q) нулями.
Dark_Zealot вне форума  
Старый 15.12.2008, 20: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, 20: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, 20:14   #4
joker2019
Новичок
 
Регистрация: 21.12.2009
Сообщений: 1
Репутация: 10
По умолчанию

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

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

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

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

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

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

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

хелп плиз с задачей
задан массив Ri, где i=1...n. Найти значение индексов максимального и минимального чисел массива, вывести их на экран?
MaxTi вне форума  
Старый 08.01.2010, 18: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 в 18:15.
ОДИНОЧЕСТВО В СЕТИ вне форума  
Старый 08.01.2010, 18: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 16:58
Паскаль. задачи на массивы rant Помощь студентам 27 20.04.2010 09:33
Задачи на С++.Тема:Массивы Wia Помощь студентам 7 20.12.2008 17:01
Pascal задачи на массивы SweetOpium Помощь студентам 9 08.05.2008 20:40
Задачи на двумерные массивы Exact Паскаль 6 06.12.2007 13:50




04:37.


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

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru