Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
vladimir0vich
#1

найти сумму элементов массива (паскаль АВС) - Pascal ABC

04.10.2013, 20:07. Просмотров 358. Ответов 0
Метки нет (Все метки)

Дан одномерный массив А(10), нужно найти сумму от первого элемента массива, до первого отрицательного если максимальный элемент больше своего разряда!
Я застрял на суммировании
вот мой код (не судите строго, только начал изучать языки и то сам)


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program p4_2;
 uses crt;
 const n=10;
var
  A:array[1..n] of integer;
  max:real;
pos, k, i,o,s,s1:integer;
 
 
  begin
  randomize;
   for i:=1 to n do
     A[i]:=random(10)-random(10);
     writeln ('ishodnuy massiv "A"');
     for i:=1 to n do
     write (a[i]:5);
     writeln;
 
   begin
 
    max:=a[1];
   for i:=2 to n do
   if A[i] > max
  then max:=a[i];
  write ('max element = ');
  writeln (max);
  
  begin
 
  for i:=1 to n do begin
  if A[i]<0 then  begin
  o:=A[i];
  break;
  end;
  end;
  writeln ('Perviy otricatelnuy element=',o);
 
      end;
    end;
  end.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.10.2013, 20:07
Здравствуйте! Я подобрал для вас темы с ответами на вопрос найти сумму элементов массива (паскаль АВС) (Pascal ABC):

Снова перевести с Турбо Паскаля на Паскаль АВС или Паскаль АВС.Нет - Pascal ABC
program derevo; uses crt, graph; function cx(length, angle:real):integer; begin cx:=round(length*cos(angle)); end; ...

Найти сумму элементов массива R, а так же сумму корней элементов массива R - Pascal ABC
дан произвольный массив R размерностью n. найти сумму элементов массива R, а так же сумму корней элементов массива R. Исходные данные взять...

Найти сумму элементов массива с Ki-го по Kj-й номер (Паскаль) - Pascal
Дан одномерный массив целых чисел. Найти: сумму элементов массива с Ki-го по Kj-й номер: Ki и Kj вводятся с клавиатуры; массив-случайные...

Найти сумму элементов последовательности (паскаль) - Pascal
Дано натуральное число n, действительные числа а1,а2,...,an. Вычислить сумму: -a1/1! + a2/2! - a3/3! + ... + /n!

Одномерный массив. Найти произведение элементов массива, кратных 5 и сумму элементов массива, которые приделении на 7 дают остаток 3. - Pascal ABC
Задан одномерный массив из N элементов. Размерность массива и сам массив вводятся с клавиатуры. Найти произведение элементов массива,...

Дан массив из 10 элементов. Найти сумму четных элементов.количество элементов массива должно вводиться с клавиатуры - Pascal ABC
Дан массив из 10 элементов. Найти сумму четных элементов.количество элементов массива должно вводиться с клавиатуры.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.10.2013, 20:07
Привет! Вот еще темы с ответами:

Найти сумму элементов чётных строк массива. Вывести сам массив и сумму - Pascal ABC
Найти сумму элементов чётных строк массива. Вывести сам массив и сумму. FRepresentation, будьте внимательны с выбором раздела!

Комментарии в Паскаль АВС. - Pascal
Подскажите что за команда //?? например //line (360,330,150,350); Как ей правильно пользоватся?

Цикл For в Паскаль АВС - Pascal
составте программу, которая находит сумму квадратов чисел от 1 до 10.?? Заранее всем огромное спасибо... =)

Не могу установить Паскаль АВС - Pascal ABC
Уже несколько файлов. Пишет что не может установить, по скольку не найден файл PABCinstal.dat и установка не возможна.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru