@Сиреночка

вот есть листинг програмы как составить блок-схему?
1)
Program pr_4;
Uses crt;
const n=10;
var a: array [1..n] of integer;
min,max,k,l,i,b: integer;
Begin
clrscr;
Randomize;
For i:=1 to n do
a[i]:=random(3);
For i:=1 to n do
Write(a[i],' ');
Readln;
End.

2)
program pr_4;
Uses crt;
Const n=7;
var a: array [1..n] of integer;
min,max,k,l,i,b: integer;
Begin
clrscr;
For i:=1 to n do
Begin
Write('a[',i,']=');
readln(a[i]);
End;
For i:=1 to n do
Write)a[i],' ');
min:=1000;
max:=0;
For i:=1 to n do
Begin
If a[i]<min then
Begin
min:=a[i];
k:=i;
End;
If a[i]>max then
Begin
max:=a[i];
l:=i;
End;
End;
b:=a[k];
a[k]:=a[l];
a[l]:=b;
Writeln;
For i:=1 to n do
Write(a[i],' ');
Readln;
End.

0

@martanpon

это в каком классе?

0

@Сиреночка

это в университете!

0

@N@tali

блок схема

Вложения

блок схемы.docx (23.0 Кб, 28 просмотров)

0

@Сиреночка

спасибо большое))))

0