Опубликовано 6 лет назад по предмету Информатика от peach277

Напишите программу с помощью Паскаля.Сформировать массив случайным образом(длина массива 20).Найти в нем среднее арифметическое.Сформировать новый массив из элементов первого больших среднего арифметического.

Ответ

Ответ дан Crazzyone

Программа формирует новый массив со смещением в лево
Program sector;constn=10;vara,b:array [1..n,1..n] of integer;z:real;i,j,k: byte;beginrandomize;for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random (40); a[i,j]:=a[i,j]-20; write(a[i,j]:4); end; writeln; end;z:=0;for i:=1 to n do for j:=1 to i do z:=z+a[i,j];z:=z/(n*n);writeln('srednee = ',z);for i:=1 to n do begin k:=1; for j:=1 to n do if a[i,j] > z then begin b[i,k]:=a[i,j]; write(b[i,k]:4); k:=k+1; end; writeln;end;readln;end.
1. Ответ
  
  Ответ дан Crazzyone
  
  Да, что то я разашелся и написал для двухмерного массива...

Не тот ответ, который вам нужен?

Найди нужный

Самые новые вопросы

Другие предметы - 11 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

Другие предметы - 11 месяцев назад

Из каких неживых частей состоит экосистема

Другие предметы - 11 месяцев назад

На какие расы делятся население земли

Другие предметы - 11 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Другие предметы - 11 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Задай вопрос

Лучшие за месяц

1

Oksana Gordienko
+798, 2 награды
2

Bianca
+743, 4 награды
3

Monna
+702, 2 награды
4

Brawer
+646, 3 награды
5

Ольга М.А.
+10.5K, 4 награды
6

Kovaleva_08
+522, 1 награда
7

Serebro
+495, 3 награды
8

Laguna
+489, 2 награды
9

Katerina_kiev
+441, 3 награды
10

Мусиенко Денис
+402, 2 награды

Интересные статьи: