Заполнить массив на 200 элементов случайными числами от 20 до 80 - Free Pascal

  1. Заполнить массив на 200 элементов псевдослучайными числами от 20 до 80: 1)Найти среднее арифметическое всех элементов. 2)Найти среднее арифметическое всех элементов меньше пятидесяти 3)Заменить наименьшие значения в массиве нулями Вывести полученный массив.


textual

Код к задаче: «Заполнить массив на 200 элементов случайными числами от 20 до 80 - Free Pascal»

type TRangeA=1..200;
var
  a: array [TRangeA] of Integer;
  i, mn, s, s50, c50: Integer;
begin
  Randomize;
  Write('A ='); mn:=MaxInt;
  for i in TRangeA do begin
    a[i]:=20+Random(80-20+1); Write(' ',a[i]); s:=s+a[i];
    if a[i]<50 then begin s50:=s50+a[i]; Inc(c50); end;
    if mn>a[i] then mn:=a[i];
  end; WriteLn;
  WriteLn('Avg = ',s/(High(a)-Low(a)+1),', Avg 50 = ',s50/c50);
  Write('A''=');
  for i in TRangeA do begin if a[i]=mn then a[i]:=0; Write(' ',a[i]); end; WriteLn;
end.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.250 из 5



Похожие ответы
  1. Дан массив A(N). Получить массив B(N), i-й элемент которого равен среднему арифметическому первых i элементов массива А: bi = (a1 + a2 + ... + ai ) / i

  1. День добрый, есть задачка по Паскалю, которую сдавать через час, а у меня еще долги Если не сложно, то прошу помочь, буду вам премного благодарен Дана матрица B[1:6,1:6] и вектор А[1:6]. Из среднеарифметических значений строк матрицы сформировать вектор C. Если минимальный элемент вектора C меньше минимального элемента вектора A, то из элементов главной диагонали матрицы сформировать вектор D. Иначе в матрице B элементы главной диагонали матрицы заменить элементами вектора A по правилу Bi,i= Ai.

  1. 1. Дан целочисленный массив А, содержащий n элементов (n 20). Найти количество различных членов последовательности.

  1. Доброй ночи. Появилась еще одна небольшая проблема. Не могу реализовать следующие два вопроса (в коде пометил их комментариями как zadanie 3 и 4): 3. Найти произведение элементов одномерного массива после второго четного. 4. Удалить найденный по условию элемент одномерного массива.

  1. Приветствую, помогите пожалуйста с задачей: Даны два массива из целых чисел, представлены, соответственно, делимыми и делителями. Получить третий массив REZ, элементы которого будут частными от деления соответствующих пар исходных массивов

  1. Дан массив строк, каждая из которых содержит дату рождения студентов отдельной группы. Посчитать средний возраст студентов группы. Пожалуйста, укажите на ошибку. Программа не работает, указывает на неправильный тип переменной sr. Тем не менее, если sr будет иметь типа extended или real, то результат вычислений выдает неверный. Заранее спасибо.

  1. Подпрограммы. Даны две квадратные матрицы:A размером 6х6 и B размером 10х10. Сформировать одномерные массивы А1 и B1 из элементов главных диагоналей матриц А и B.

  1. Помогите, пожалуйста, исправить. Выдаёт ошибку External:SIGFTP, никак не понимаю, что он просит и как исправить.

  1. Впишите пропущенную строку для вычисления суммы элементов массива a[1..k]: s:=0; for n:=1 to k do writeln(‘s=’,s);