Автор Тема: помогите пожалуйста редактировать алгоритм в паскале  (Прочитано 5705 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн elena68r

  • Пользователь
  • **
  • Сообщений: 34
    • Просмотр профиля
задача.
массив :х(50). определить  сумму отрицательных элементов массива х кратным трем
условия и ограничения: -50<Xi<50


вот мой алгоритм решения
program sum;
var i, mod3, sum_otr, n: integer;
x:array [1..30] of real;
begin
writeln(' vvedite znachenie n');
read (n);
randomize;
sum_otr:=0;
for i:=1 to n do
if <0 and (xmod3=0)
then sum_otr:= sum_otr +x;
end;
write (' сумма отрицательных элементов=' , sum_otr:0:3);
end.
« Последнее редактирование: 24 Ноября 2009, 22:50:34 от Asix »

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
program sum;
var i, sum_otr, n: integer;
x:array [1..30] of real;
begin
writeln(' vvedite znachenie n');
read (n);
randomize;
sum_otr:=0;
for i:=1 to n do begin
if ((x[ i ]<0) and (x[ i ] mod3=0))
then sum_otr:= sum_otr +x [ i ];
end;
write (' сумма отрицательных элементов=' , sum_otr:0:3);
end.
Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩