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

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

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

Дана последовательность действительных чисел. Заменить все ее члены, большие данного Z, этим числом. Подсчитать количество замен.

Pascal

program zadacha9;
const nmax=100;
type mas=array [1..nmax] of real;
var
n,i,k,kol:integer;
z:real;
a:mas;
begin
randomize;
repeat
write ('vvedite n=>');
readln (n);
until n>0;
for i:=1 to n do
begin
a[i]:=random*9;
write (a[i]:5:1);
end;
writeln;
write ('vvedite chislo z=>');
readln (z);
kol:=0;
for i:=1 to n do
if a[i]>z then
  begin
   a[i]:=z;
   kol:=kol+1
  end;
if kol=0 then
writeln ('Poluchenniy massiv:');
for i:=1 to n do
write (a[i]:5:1);
writeln;
writeln ('kol-vo zamen=',kol);
readln;
end.

Kodzaev · 18.06.2013, 20:35

Блок-схема

Kodzaev 3030 / 1916 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	18.06.2013, 20:35	2
	Блок-схема Миниатюры 1