Здравствуйте, прошу вашей помощи, завтра экзамен, и к нему нужна блок схема по программному коду Pascal, программа по массивам. Очень надеюсь на вас, заранее огромное спасибо
Код Pascal:
Program massive;
Uses crt;
Const n=10;
type mas=array[1..N] of integer;
var a:mas;
sym,max,nmax:integer;
procedure vvod_massiv(var b:mas); var i: byte;
begin
for i:=1 to n do
b[i]:=random(18) -7;
end;
procedure vivod_massiv(b:mas);
var i:byte;
begin
for i:=1 to n do
write(b[i]:4);
end;
function symma(b:mas):integer;
var i:byte;
s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+b[i];
symma:=s;
end;
procedure maximum(B:mas; var m,nomm:integer);
var i:integer;
begin
m:= b[1];nomm:=1;
for i:=2 to N do
if m< b[i] then begin m:=b[i];
nomm:=i;
end;
end;
procedure perest(nom1,nmax:byte;var B:Mas);
var t:integer;
begin
t:=b[nom1];
b[nom1]:=b[nmax];
b[nmax]:=t;
end;
begin
clrscr;
randomize;
vvod_massiv(a);
vivod_massiv (a); writeln;
maximum(a,max,nmax) ;
write('max=',max,'nmax=',nmax); writeln;
perest(1,nmax,a);
vivod_massiv (a);
end.
Примечание:
2 rkz
Искал я самостоятельно, нашёл множество программ, но ни одна не може построить блок-схему из-за присутсвия в коде процедур и функций
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.