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

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

Ответ

Ответ дан Аккаунт удален

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin var a:=ArrRandom(20,-50,50); a.Println; var b:=a.Where(t->t>a.Average).ToArray; b.Printlnend.Пример10 32 7 10 -17 -5 6 14 -39 -20 -28 2 -22 15 10 11 28 -13 -29 3110 32 7 10 6 14 2 15 10 11 28 31
Ответ

Ответ дан Crazzyone

Program TZ5;constn=20;vara,z:array [1..n] of integer;i,b,x:byte;beginrandomize;for i:=1 to n do begin a[i]:=random (20); a[i]:=a[i]-10; writeln(i,' ',a[i]);end;b:=0;for i:=1 to n do b:=b+a[i];x:=1;writeln;for i:=1 to n do if a[i]>b/n then begin z[x]:=a[i]; x:=x+1; end;for i:=1 to x do writeln(i,' ',z[i]);readln;end.
1. Ответ
  
  Ответ дан Аккаунт удален
  
  Проблема лишь в том, что "классический Паскаль" существует лишь в пределах школ.
2. Ответ
  
  Ответ дан Аккаунт удален
  
  Да и то, слава богу, ежу не всех.
3. Ответ
  
  Ответ дан Аккаунт удален
  
  *уже
4. Ответ
  
  Ответ дан Crazzyone
  
  const это раздел, в котором объявляются константы, смотри следующую строку
5. Ответ
  
  Ответ дан peach277
  
  А как по другому записать?Просто мы это не проходили