Как вывести на экран больший массив ( числа массива )

@Влад_мир · Регистрация: 15.04.2015

Студворк — интернет-сервис помощи студентам

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
rogram summa;
Var 
  a: array[1..3] of integer;
  b: array[1..3] of integer;
  s, i, r, u: integer;
 
Begin
   s:=0;
  For i:=1 to 3 do
     begin
       writeln ('введите число'); readln (a[i]);
       s:=s+a[i];
     end;
     
     writeln('сумма  элементов   ',s);
 r:=0;
  For u:=1 to 3 do
     begin
       writeln ('введите число'); readln (b[u]);
       r:=r+b[u];
     end;
     writeln('сумма  элементов   ',r);
    
     if (s>r) then Writeln ('Больший массив ',s) else Writeln('Больший массив ',r)
     
End.

@JuriiMW · 20.07.2015, 07:20

Из строки:

Pascal
1
if (s>r) then Writeln ('Больший массив ',s) else Writeln('Больший массив ',r)

Сделать строку:

Pascal
1
if (s>r) then Writeln ('Больший массив ',s,NewLine,a) else Writeln('Больший массив ',r,NewLine,b)

@Влад_мир · 20.07.2015, 07:24 **[ТС]**

Спасиб!

@Puporev · 20.07.2015, 07:26

Нужно еще предусмотреть случай когда суммы равны.

@Влад_мир · 20.07.2015, 07:35 **[ТС]**

Спасибо, а то я тут налепил криво и косо

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@Влад_мир 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 11
	20.07.2015, 07:24 [ТС]
	Спасиб! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	20.07.2015, 07:26
	Нужно еще предусмотреть случай когда суммы равны. 0

@Влад_мир 0 / 0 / 0 Регистрация: 15.04.2015 Сообщений: 11
	20.07.2015, 07:35 [ТС]
	Спасибо, а то я тут налепил криво и косо 0