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

@pexota · Регистрация: 27.06.2010

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

В одномерном массиве состоящем из n элементов вычислить:
1. Количество элементов массива, больших С
2. Произведения элементов массива расположенных после максимального по модулю элемента

@Snoopy · 04.09.2010, 12:31

не компилировалось

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,c,max,imax,k,p:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
 end;
Writeln;
Writeln('C=');
Readln(c);
max:=abs(a[1]);
imax:=1;
k:=0;
for i:=1 to n do
 begin
  if a[i]>c then
   inc(k);
  if abs(a[i])>max then
   begin
    max:=abs(a[i]);
    imax:=i;
   end;
 end;
p:=1;
for i:=imax+1 to n do
 p:=p*a[i];
Writeln('Max ',max,' [',imax,']');
Writeln('Kol ',k);
Writeln('Pr ',p);
Readln;
end.

@pexota · 05.09.2010, 19:04 **[ТС]**

спасибо ну мне не само программа нужна а только блок схема не могла бы ты мне составить эту схему пожалуйста

@pexota 3 / 3 / 0 Регистрация: 27.06.2010 Сообщений: 10
		1
	Составить блок схему на массивы 04.09.2010, 11:24. Показов 1193. Ответов 2 Метки нет (Все метки) В одномерном массиве состоящем из n элементов вычислить: 1. Количество элементов массива, больших С 2. Произведения элементов массива расположенных после максимального по модулю элемента 1

@pexota 3 / 3 / 0 Регистрация: 27.06.2010 Сообщений: 10
	05.09.2010, 19:04 [ТС]	3
	спасибо ну мне не само программа нужна а только блок схема не могла бы ты мне составить эту схему пожалуйста 1

Опции темы

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

Решение