Составить блок-схему по написанной программе

@Savenkov · Регистрация: 24.09.2014

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

Помогите пожалуйста составить блок-схему по программе:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program alex;
 
{Подключение модуля crt}
uses crt;
{ Объявление переменных }
var a,b,b1:array[1..16] of integer;
q,k,min,number_min,i:integer;
 
begin
{Задание массива A}
randomize;
q:=1; k:=1; min:=100;
Write('mass A = ');
 
for i:=1 to 16 do
begin
a[i]:=random(20);
Write(a[i],' ');
 
{Формирование массива B1}
if (a[i]<=4) then begin
b1[q]:=a[i];
 
{Нахождение минимального элемента в массиве B1}
if (b1[q]<min) then begin
min:=b1[q];
number_min:=q;
inc(q);
end;
end;
 
{ Формирование массива B} 
if (a[i]>4) then begin
b[k]:=a[i];
inc(k);
end;
end;
 
{ Вывод массива B}
Writeln; 
Write('mass B = ');
for i:=1 to k-1 do
Write(b[i],' ');
 
{Вывод массива B1}
Writeln;
Write('mass B1 = ');
for i:=1 to q-1 do
Write(b1[i],' ');
 
{Вывод минимального элемента массива B1} 
Writeln;
If min=100 then Writeln( 'Нет минимального элемента')
else Writeln('Min element in mass B1 = ',min,'[',number_min,']');
readln;
end.

Задание:

Даны сведения о массах 16 грузов - массив A[16].
1) Сформировать массив B[ ] из грузов массой > 4 т. Общая масса массива грузов B не должна превышать Q т.
2) Вывести список остатка грузов > 4 т.
3) Сформировать массив B1[ ] из грузов ≤ 4 т. Определить общую массу этих грузов.
4) Определить самый лёгкий груз в массиве B1, его номер N.

@JokeR.BY · 23.11.2014, 17:42

как-то так...

@Cyborg Drone · 24.11.2014, 13:01

Не по теме:

Savenkov, рекомендую Вам ознакомиться с правилами форума. Фотографии текста запрещены. Будьте добры, в будущем оформляйте Ваши сообщения согласно правил форума. В этот раз я не поленился перепечатать Ваше задание вручную. Далее Ваши фотографии текста я буду удалять.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	23.11.2014, 17:42
	как-то так... Миниатюры 1

@Cyborg Drone
	24.11.2014, 13:01
	Не по теме: Savenkov, рекомендую Вам ознакомиться с правилами форума. Фотографии текста запрещены. Будьте добры, в будущем оформляйте Ваши сообщения согласно правил форума. В этот раз я не поленился перепечатать Ваше задание вручную. Далее Ваши фотографии текста я буду удалять. 0