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

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

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


Ответ
 
Опции темы
Старый 16.12.2008, 21:44   #1
Waia
Пользователь
 
Регистрация: 02.11.2008
Сообщений: 15
Восклицание Сформировать новый массив,содержащий отрицательные элементы - Задача по PASCAl.

Дан массив f1,.. ,f14. Сформировать новый массив,содержащий
отрицательные элементы fi.найти сумму элементов нового массива. Найти f min.

Даны массивы
N1,...,N10-наименование предприятий.
R1,...,R10-годовой расход электроэнергии,киловат;
S1,...,S10-объем производимой продукции,руб. Вывести списки
предприятий, у которых отношение Ri/Si больше,среднего по всей группе
предприятий.
Waia вне форума Ответить с цитированием
Старый 17.12.2008, 18:02   #2
VoRTeX
Пользователь
 
Аватар для VoRTeX
 
Регистрация: 07.02.2007
Сообщений: 21
По умолчанию

1.
Код:
var
	f, a:array[1..14] of integer;
	i, ind, n:byte;
	sum:word;
begin
	ind:=0; sum:=0;
	Randomize;
	for i:=1 to 14 do
	f[i]:=Random(30000);
	n:=Random(14);
	for i:=1 to n do
	f[i]:=-f[i];
	for i:=1 to 14 do
	if f[i]<0 then
	begin
		inc(ind);
		a[ind]:=f[i];
	end;
	for i:=1 to n do
	sum:=sum + a[i];
	Writeln(sum); sum:=1;
	for i:=1 to n do
	if a[sum]>a[i] then sum:=i;
	Writeln(sum);
end.
VoRTeX вне форума Ответить с цитированием
Старый 17.12.2008, 18:27   #3
[koyot]
Пользователь
 
Аватар для [koyot]
 
Регистрация: 17.12.2008
Сообщений: 17
По умолчанию

2я задачка

Код:
program Project2;
var
   n:array [1..10] of string;
   r,s: array[1..10] of real;
   i:integer;
   o:real;

begin
o:=0;
  for i:=1 to 10 do      //считываем данные каждое предприятие c данными в строчку
   readln (n[i]);
   readln (r[i],s[i]);
  for i:=1 to 10 do   //находим среднее
    o:=o+(r[i]/s[i]);
    o:=o/10;
    for i:=1 to 10 do        //проверяем
     if (r[i]/s[i])>o then
      writeln (n[i]);
     readln;
end.

тестить некогда но вроде праильно
ICQ 897-45-46
[koyot] вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
help задача pascal двум массив AlexGur Помощь студентам 45 20.04.2010 22:06
В двухмерном массиве все отрицательные элеметны заменить на их модули. А новый массив вывести на экран JulLy Паскаль, Turbo Pascal, PascalABC.NET 11 28.04.2009 07:13
Отсортировать отрицательные элементы Cdevelop Общие вопросы C/C++ 5 18.03.2009 22:31
Задача: сформировать новый массив, содержащий номера строк матрицы, имеющих отрицательную сумму элементов Striker14 Помощь студентам 1 23.02.2009 23:29
в начале все отрицательные, затем все положительные элементы в матрице motaro Паскаль, Turbo Pascal, PascalABC.NET 2 07.03.2008 19:16


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Скидки на курсы GeekBrains 40%, выбирайте программу для себя