Создать массив К псевдослучайных чисел на промежутке [10,20]

@balaneckij · Регистрация: 18.03.2012

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

Помогите пожалуйста решить задачи по Pascal.
Создать массив К псевдослучайных чисел на промежутке [10,20] и определить количество элементов, которые превышают среднее значение элементов массива.

@КонецСвета · 26.05.2012, 23:18

Pascal

uses crt;
const nmax=50;
var a: array [1..nmax] of byte;
    i,k,kp: byte;
    sar: integer;
begin
randomize;
repeat
write('Размерность массива, не более ',nmax,', k='); readln(k);
until k in [1..nmax];
writeln('Дан массив');
for i:=1 to k do
    begin
    a[i]:=random(21)+10;
    write(a[i]:3);
    inc(sar,a[i]);
    end;
for i:=1 to k do
    if a[i]>sar/k then inc(kp);
writeln;
writeln(kp,' элемент(а/ов) превышают среднее значение ',sar/k:0:2);
readln;
end.

@balaneckij 0 / 0 / 0 Регистрация: 18.03.2012 Сообщений: 17
		1
	Создать массив К псевдослучайных чисел на промежутке [10,20] 25.05.2012, 14:30. Показов 1348. Ответов 1 Метки нет (Все метки) Помогите пожалуйста решить задачи по Pascal. Создать массив К псевдослучайных чисел на промежутке [10,20] и определить количество элементов, которые превышают среднее значение элементов массива. 0

	26.05.2012, 23:18

Создать массив К псевдослучайных чисел на промежутке [10,20]

Решение