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

@Almaz1995 · Регистрация: 14.12.2012

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

Pascal

const n=20;
var a:array[1..n]of integer; max,min,i:integer;
 begin
  Randomize;
  min:=100;
  writeln('Исходный массив');
  for i:=1 to n do
   begin
    a[i]:=random(10);
    write(a[i]:3);
    if a[i]>max then
     max:=a[i];
    if a[i]<min then
     min:=a[i];
   end;
  writeln;
  writeln('1 последовательность');
  for i:=1 to n do
    if a[i]>7 then
     begin
      a[i]:=a[i]+min
      write(a[i]:3);
     end;
  writeln;
  writeln('2 последовательность');
  for i:=1 to n do
    if a[i]<7 then
     begin
      a[i]:=a[i]-max;
      write(a[i]:3);
     end;
 end.

@Paster Fob · 12.06.2013, 16:01

Схема

@Paster Fob 296 / 274 / 194 Регистрация: 03.05.2012 Сообщений: 570
	12.06.2013, 16:01	2
	Схема Миниатюры 2