Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
depp-
0 / 0 / 0
Регистрация: 23.04.2009
Сообщений: 8
1

Массив.Среднее арфиметическое

15.05.2009, 10:31. Просмотров 470. Ответов 4
Метки нет (Все метки)

Помогите плиз с лабой,с массивами я не очень дружу , а задание вроде не очень лсожное...
Задание :
Все массивы являются статическими. Программа должна предусматривать быструю смену размерности рабочих массивов с внесением минимальных изменений в код программы. Для заполнения значений исходного массива допускается использование генератора случайных чисел. Исходные данные вывести на экран. Результат вычислений вывести на экран.
Результаты сдачи экзамена группой из N студентов находятся в массиве REZ. Вычислить средний балл сдачи экзаменаа.
массив REZ это просто название походу , вроде надо просто среднеее арфметическое посчитать , оценки до 5 наврное , числа рандом , помогите плиз...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2009, 10:31
Ответы с готовыми решениями:

Вычислить среднее арифметическое элементов, дописать в массив и отсортировать массив по возростанию
5)Вычислить среднее арифметическое элементов, дописать в массив и отсортировать...

Массив, среднее арифметическое.
составьте на паскале программу вычисления среднего арифметического...

Массив, определить среднее арифметическое
решите пожалуйста задачку, оч надо. зарание, СПАСИБО! дан массив из N эл....

Дан массив из N чисел нужно вычислить их среднее
Девушке нужно помочь срочно, завтра ей сдавать на зачёт, буду очень...

Массив. Рассчитать среднее арифметическое главной диагонали
нарисовать блок схему : дано 7значное число. определить есть ли в нем...

4
demidrolll
131 / 130 / 60
Регистрация: 10.12.2008
Сообщений: 286
15.05.2009, 10:48 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses
  crt;
var
  i,n: integer;
  sr: real;
  rez: array [1..20] of byte;
begin
  clrscr;
  write('wwedite kol-wo studentow: ');
  readln(n);
  sr:=0;
  Randomize;
  for i:= 1 to n do
  begin
    rez[i]:=random(5)+1;
    write(rez[i],' ');
    sr:=sr+rez[i];
  end;
  writeln('Sredniy bal = ',sr/n:5:2);
  readkey;
end.
1
mamedovvms
2919 / 840 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
15.05.2009, 10:51 3
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
uses crt;
var rez:array[1..200] of integer;
      i,n,sum:integer;
      s:char;
begin
 clrscr;
sum:=0;
randomize;
 writeln('Vvedite chislo studentov ');
 readln(n);
 
writeln('Vvod ocenok s klaviaturi y/n ');
readln(s);
 if (s=y) or (s=Y) then
  for i:=1 to n do
    begin
      write('rezultat ',i,' studenta= ');
     readln(rez[i]);
     sum:=sum+rez[i];
     write(rez[i],' ');
    end
else
    for i:=1 to n do
     begin
       rez[i]:=random(5)+1;
      sum:=sum+rez[i];
      write(rez[i],' ');
    end;
 
writeln('srednee',sum/n);
readln;
end;
0
Puporev
Модератор
55093 / 42345 / 29246
Регистрация: 18.05.2008
Сообщений: 100,063
15.05.2009, 11:28 4
rez[i]:=random(5)+1;
А я уж думал, что колы уже не ставят.
0
demidrolll
131 / 130 / 60
Регистрация: 10.12.2008
Сообщений: 286
15.05.2009, 23:30 5
В Беларуси десятибальная система, а в Украине вообще двенадцатибальная.
Бывает даже ставят 0
0
15.05.2009, 23:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2009, 23:30

Массив: минимальный и максимальный элементы заменить на среднее арифметическое строки
по информатике задали, а я не шарю((

Дан массив из N элементов.Определить среднее арифметическое кратных 5 и некратных 10
Помогите пожалуйста написать программу на Паскаль. Только без random, если можно

Двумерный массив: Первый элемент в каждом столбце заменить на среднее арифметическое
Дан двумерный массив вещественных чисел из 4 столбцов и 3 строк. Первый элемент...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru