Составить блок схему к готовому коду

@Molchan · Регистрация: 14.01.2013

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

пожалуйста сделайте блок схему для следующего кода.

Pascal

program z4;
uses crt;
const n=10;
var a:array[1..n] of integer;
    i,b:integer;
begin
 clrscr;
 
 write('Введите 10 чисел по убыванию');
 
 for i:=1 to n do begin
  write('A[',i,']='); readln(a[i]); end;
 
 clrscr;
 
 for i:=1 to n do
  write(a[i]:4);
 
 b:=0;
 
 for i:=1 to n-1 do
  if a[i]<a[i+1] then b:=b+1;
 
 if b=0 then write('массив упорядочен') else write('Массив не упорядочен');
 
  readln;
 
 end.

@CodeR · 17.01.2013, 08:34

...

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,561 Записей в блоге: 1
	17.01.2013, 08:34	2
	... Миниатюры 0

Опции темы