Массивы

@Dime · Регистрация: 09.11.2009

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

Можете с еще тремя помочь!
1. Дана таблица А[1:20]. Найти количество элементов этой таблицы, больших среднего арифметического всех ее элементов.

2. Составить программу которая вычисляет произведение всех ненулевых элементов массива С.

3.Дана таблица А. Поменять местами максимальный и минимальный элементы таблицы.

@yamilramilev · 10.11.2009, 16:26

Вторая задача

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program proizv;
  const N=10;
 var
    i,proiz:integer;
    C:array[1..N] of integer;
begin
  randomize;
  proiz:=1;
  for i:=1 to N do
    begin
      C[i]:=random(100);
      if C[i]>0 then proiz:=proiz*C[i];
    end;
  writeln('Произведение положительных чисел равна ',proiz);
end.

Добавлено через 7 минут

Первая задача

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program sredn;
 
  const N=20;
  var
    i,sr,proiz:integer;
    A:array[1..N] of integer;
begin
  randomize;
  proiz:=1;
  for i:=1 to N do
    begin
      A[i]:=random(100)-50;
      proiz:=proiz*A[i];
    end;
  sr:=proiz div 2;
  proiz:=0;
  for i:=1 to N do
    if A[i]>sr then inc(proiz);
writeln('Количество элементов равна ',proiz);
end.

Добавлено через 11 минут

Третья задача

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program MaxToMin;
  const N=10;
  var
    max,maxi,min,mini,j,i,proiz:integer;
    A:array[1..N,1..N] of integer;
 
procedure swap(var a,b:integer);
  var t:integer; 
 begin
   t:=a;
   a:=b;
   b:=t;
 end;
 
begin
  randomize; 
  maxi:=1;
  max:=2;
  mini:=1;
  min:=1;
for i:=1 to N do
 for j:=1 to n do
  begin
    A[i,j]:=random(100)-50;
    if A[i,j]>a[maxi,max] then
      begin
        maxi:=i;
        max:=j;
      end
        else
          if A[i,j]<a[mini,min] then
            begin
              mini:=i;
              min:=j;
            end;
   end;
   swap(A[maxi,max],A[mini,min]);
 readln;
end.

Добавлено через 44 секунды
Вот как бы так....

@Dime · 10.11.2009, 16:27 **[ТС]**

у вас тут получается что мы не вводим же числа ?

@yamilramilev · 10.11.2009, 16:34

ну тогда

во второй задаче

вместо

Pascal
1
2
3
4
5
for i:=1 to N do
    begin
      C[i]:=random(100);
      if C[i]>0 then proiz:=proiz*C[i];
    end;

напиши

Pascal
1
2
3
4
5
for i:=1 to N do
    begin
      readln(C[i])
      if C[i]>0 then proiz:=proiz*C[i];
    end;

В первой

вместо

Pascal
1
2
3
4
5
for i:=1 to N do
    begin
      A[i]:=random(100)-50;
      proiz:=proiz*A[i];
    end;

напиши

Pascal
1
2
3
4
5
for i:=1 to N do
    begin
      readln(A[i]);
      proiz:=proiz*A[i];
    end;

В третьей

вместо

Pascal
1
2
3
4
for j:=1 to n do
  begin
    A[i,j]:=random(100)-50;
    if A[i,j]>a[maxi,max] then

напиши

Pascal
1
2
3
4
for j:=1 to n do
  begin
    readln(A[i,j]);
    if A[i,j]>a[maxi,max] then

Добавлено через 4 минуты
И везде надо убрать randomize;

@Dime · 10.11.2009, 16:37 **[ТС]**

что-то все равно не то у меня не получаеться, не сробатывает нужное действие во второй задаче, первую и трутью я еще не набирала

Добавлено через 2 минуты
можете еще раз написать мне все программы, как они должны быть в паскале.

@yamilramilev · 10.11.2009, 16:51

Первая

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program sredn;
 
  const N=20;
  var
    i,sr,sum:integer;
    A:array[1..N] of integer;
begin
  proiz:=1;
  for i:=1 to N do
    begin
      readln(A[i]);
      sum:=sum+A[i];
    end;
  sr:=sum div 2;
  sum:=0;
  for i:=1 to N do
    if A[i]>sr then inc(sum);
writeln('Количество элементов равна ',sum);
end.

Вторая

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program proizv;
  const N=10;
 var
    i,proiz:integer;
    C:array[1..N] of integer;
begin
  proiz:=1;
  for i:=1 to N do
    begin
      Readln(C[i]);
      if C[i]>0 then proiz:=proiz*C[i];
    end;
  writeln('Произведение положительных чисел равна ',proiz);
end.

Третья

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
program MaxToMin;
  const N=5;
  var
    max,maxi,min,mini,j,i,:integer;
    A:array[1..N,1..N] of integer;
 
procedure swap(var a,b:integer);
  var t:integer;
 begin
   t:=a;
   a:=b;
   b:=t;
 end;
 
begin  
  maxi:=1;
  max:=2;
  mini:=1;
  min:=1;
for i:=1 to N do
 for j:=1 to n do
  begin
    readln(A[i,j]);
    if A[i,j]>a[maxi,max] then
      begin
        maxi:=i;
        max:=j;
      end
        else
          if A[i,j]<a[mini,min] then
            begin
              mini:=i;
              min:=j;
            end;
   end;
writeln('Массив до изменения');
   for i:=1 to N do
     begin
       for j:=1 to N do
           write(A[i,j],' ');
       writeln;
     end;
     writeln('Массив после изменения');
   swap(A[maxi,max],A[mini,min]);
      for i:=1 to N do
     begin
       for j:=1 to N do
           write(A[i,j],' ');
       writeln;
     end;
 readln;
end.

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@Dime 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 24

	Массивы 10.11.2009, 15:56. Показов 920. Ответов 5 Метки нет (Все метки) Можете с еще тремя помочь! 1. Дана таблица А[1:20]. Найти количество элементов этой таблицы, больших среднего арифметического всех ее элементов. 2. Составить программу которая вычисляет произведение всех ненулевых элементов массива С. 3.Дана таблица А. Поменять местами максимальный и минимальный элементы таблицы. 0

@Dime 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 24
	10.11.2009, 16:27 [ТС]
	у вас тут получается что мы не вводим же числа ? 0

@Dime 0 / 0 / 0 Регистрация: 09.11.2009 Сообщений: 24
	10.11.2009, 16:37 [ТС]
	что-то все равно не то у меня не получаеться, не сробатывает нужное действие во второй задаче, первую и трутью я еще не набирала Добавлено через 2 минуты можете еще раз написать мне все программы, как они должны быть в паскале. 0