Помогите пожалуйста решить две задачи на Паскале

[Scooter]

Задача №1
Дано n-число, найдите сумму чисел больше заданного числа а.
Задача №2
Дан массив из 10 элементов, найти произведение отрицательных элементов.
Эти задачи нужно решить на Паскале, пожалуйста помогите очень прошу, буду премного благодарен.
С уважением ко всем думающим над этими задачами Scooter. <!--emo&:(--><!--endemo-->

[Strateg]

По первой задаче не совсем понятно условие. n- это вводимые числа, котоые нужно суммировать?
Завтра напишу, если раньше никто не ответит. Синтаксис только вспомню дома.

[Scooter]

To Strateg
Да, вводимые числа.
Буду очень благодарен, если напишите, а то учительница по ВТ заколибала, ничего объяснить толком не может, а потом спрашивает до фига. Заранее благодарен...

[Shelix]

Первую задачу не понял, что значит
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin--> n-число<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
По второй примерно так:

Код: выделить все


var
 a : array[1..10] of Integer;
 x, sum : integer;
begin
 for x:=1 to 10 read(a[x]);
 sum:=0;
 for x:=1 to 10 do
   if a[x]<0 then sum:=sum+a[x];
 WriteLn(sum);
end.


А вообще, такие ламерские задачки ты должен и сам научиться делать.

[Lynn]

2Shelix
Все верно, только в задаче просили произведение, а зачит правильней так

Код: выделить все

var
 a : array[1..10] of Integer;
 x, prod : integer;
begin
 for x:=1 to 10 read(a[x]);
 prod:=1;
 for x:=1 to 10 do
   if a[x]<0 then prod:=prod*a[x];
 WriteLn(prod);
end.


и, возможно, Integer надо заменить на Single или Double.

[Shelix]

Сорри, небольшая ошибочка вышла. А насчет типов данных, это уж смотря от конкретного случая. Это в задаче должно указываться, в каких пределах лежат переменные.

[Lynn]

Вообще то вторую прогу можжно сделать и без массива:

Код: выделить все

program second;
var
 x, a, prod : integer;
begin
 prod:=1;
  for x:=1 to 10 do
 begin
   read(a);
    if a<0 then prod:=prod*a;
 end;
  WriteLn(prod);
end.


Если я правильно понял условие первой программы, то нужно из n заданных чисел просуммировать все числа которые больше a.

Код: выделить все

program first;
var
 i, n, x, a, sum : integer;
begin
 sum:=0;
 Write('Введите a: ');
 ReadLn(a);
 Write('Введите n: ');
 ReadLn(n);
  for i:=1 to n do
 begin
   read(x);
    if a<x then sum:=sum+x;
 end;
  WriteLn('Сумма: ', sum);
end.


[Shelix]

<!--QuoteBegin--Lynn+May 8 2003, 13:24--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE (Lynn @ May 8 2003, 13:24)</td></tr><tr><td id='QUOTE'><!--QuoteEBegin--> Вообще то вторую прогу можжно сделать и без массива:
<!--QuoteEnd--> </td></tr></table><span class='postcolor'> <!--QuoteEEnd-->
Естественно, но здесь, как я понимаю, не полное условие, не сказано, откуда ввод данных, это я для примера сделал ввод с клавиатуры.
А вообще, если каждый будет спрашивать здесь такие ламерские задачки, то этот форум можно будет переименовывать в "Информатика для первоклассников". По-моему, не стоило даже писать решения здесь такой задачи, это уж Scooter должен и сам научиться делать.
Все-таки под "программированием" я подразумеваю что-то более серьезное.

А вот я думаю, может попросить админов открыть ветку "гуру информатики" или "олимпиадное программирование".

[Scooter]

Лана, спасибо, не обижайтесь, что я и в правду задаю такие простенькие задачки, но всё равно, Пскаль то я не хрена не знаю, если мне бы объесняли нормально, то я бы ещё нписал эти задачи сам, а так......
Всем спасибо, премного благодарен !!! <!--emo&:D--><!--endemo-->

[Scooter]

To Shelix
Но Товарищ старший сержант, ну не научился я решать задачи, но обещаю исправлюсь, хотя программирование это не моя область интересов, мне интресно, что-нибудь настройка железа или системное администрирование, но я говорю постараюсь разобраться в этом.
А вы говорите, что это лёгкие задачи, тогда поробуйте решить эти задачи:
Задача №1
Напечатать таблицу соответствия между весом в фунтах и весом киллограммах для значений от 1 до 10 фунтов, с шагом 1 фунт=400 граммов.
Задача №2
Напечатать таблицу перевода температур из градусов по шкале цельсия в градусы шкалы форенгейта для значений, от 20 до 50 градусов цельсия, с шагом 2 градуса.
Если те задачи, я хоть немного понял, а вот эти..........не понимаю.
Вот попробуйте их решить, а то вы говорите ламерские, ламерские, вот если их решите получите Respect, но конечно можете не решать, но постарайтесь !!! Мне решение этих задач тоже нужно !!!

[BuG]

2Scooter
И первая и вторая - обычный цикл for. Это даже я понимаю <!--emo&:)--><!--endemo-->)

[Shelix]

Нет уж, товарисч рядовой, у меня не так много свободного времени, чтобы тратить его на такие простенькие задачки. Вот дал бы ты задачу, где хоть немножко подумать надо, тогда другое дело. Это что ж ты собираешься все задачи, которые тебе задают, нам переправлять? Спрашивай по существу, что не знаешь, постараемся объяснить.

[Scooter]

To Shelix
Да, ладно, вам погли бы быстренько написать, что к чему, но всё равно спасибо за всё !

[Scooter]

To Bug
Понимаешь, понимай ! И не надо никогда хвастаться, типо я блаженный гуру.......

[Scalder]

2Scooter
Зря BuG грубишь по двум причинам:
1) Человек он очень даже ничего <!--emo&;)--><!--endemo-->
2) Он тут админ <!--emo&:)--><!--endemo-->
3) Он просто дал подсказку...

А такие простенькие задачки мог бы и сам решить...тут много мозгов не надо... Так что коли роже крива.... <!--emo&:)--><!--endemo-->