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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.01.2012, 17:52   #1
Yuuuu
Пользователь
 
Регистрация: 26.01.2012
Сообщений: 16
По умолчанию массивы задачи

Всем доброго времени суток!
Плиз, проверьте задачу. Что-то не идёт..

Дан массив целых чисел, состоящий из 10 элементов. Записать его с клавиатуры. Найти: удвоенную сумму положительных элементов

var a:array[1..100] of integer;
i,n,s,b,f,x:integer;
begin
write('Введите размер массива: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(10)-10;
write(a[i],' ');
end;
writeln;
write('Введите число X: ');
readln(x);
for i:=1 to n do begin
if a[i]>0 then f:=2*(f+a[i]);
end;
write('Сумма отрицательных= ',f);
writeln;
writeln;
end.

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

Спасибо!
Yuuuu вне форума Ответить с цитированием
Старый 26.01.2012, 17:56   #2
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
как вывести индексы тех элементов, значения которых больше значения предыдущего элемента.
Код:
for i := 2 to n do
    if a[i] > a[i-1] then Writeln(i);
Цитата:
Дан массив целых чисел, состоящий из 10 элементов. Записать его с клавиатуры. Найти: удвоенную сумму положительных элементов
Код:
sum := 0;
randomize;
for i := 1 to n do
begin
    a[i] := random(10) - 5;
    if a[i] > 0 then Inc(sum, a[i]);
end;
Writeln (sum*2);
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303

Последний раз редактировалось Hacker19_90; 26.01.2012 в 18:00.
Hacker19_90 вне форума Ответить с цитированием
Старый 26.01.2012, 17:58   #3
Yuuuu
Пользователь
 
Регистрация: 26.01.2012
Сообщений: 16
По умолчанию

Цитата:
Сообщение от Hacker19_90 Посмотреть сообщение
Код:
for i := 2 to n do
    if a[i] > a[i-1] then Writeln(i);
Супер! Спасибо! А в первой задачке ошибки не видно?
Yuuuu вне форума Ответить с цитированием
Старый 26.01.2012, 18:02   #4
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
А в первой задачке ошибки не видно?
1) Рандом
Цитата:
Код:
a[i]:=random(10)-10;
Получите только отрицательные числа!
2) Нахождение суммы
Цитата:
Код:
for i:=1 to n do begin
if a[i]>0 then f:=2*(f+a[i]);
не верно!
3) При чём тут отрицательные?
Цитата:
Код:
write('Сумма отрицательных= ',f);
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи на массивы в C# OnlySergio Помощь студентам 4 01.08.2012 12:53
массивы задачи ирен Паскаль, Turbo Pascal, PascalABC.NET 1 21.12.2010 21:43
Задачи на массивы Hichcog Помощь студентам 4 27.11.2010 10:17
задачи на массивы shadow 05 Помощь студентам 1 13.05.2009 22:45
Задачи на массивы. spankyham Помощь студентам 9 09.04.2009 08:34