составить блок-схему

@VOV · Регистрация: 07.12.2009

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

Pascal

uses crt;
var a,b:array[1..100]of integer;
i,n,k:integer;
s:real;
 
begin
 clrscr;
 write('N-> ');
 readln(n);
 for i:=1 to n do read(a[i]);
 readln;
 s:=0; 
 for i:=1 to n di s:=s+a[i];
 s:=s/n;
 k:=0;
 for i:=1 to n do if a[i]>s then
 begin
  inc(k);
  b[k]:=a[i];
 end;
 
 for i:=1 to k do write(b[i],' ');
 readln;
end.

@paradoxonix · 10.12.2009, 09:44

@paradoxonix 0 / 0 / 0 Регистрация: 01.10.2009 Сообщений: 31
	10.12.2009, 09:44	2
	0

Опции темы