Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1. - Pascal

Формулировка задачи:

Всем здравствуйте, очень нужна Ваша помощь, помогите пожалуйста решить 4 задачки. 1. Составить программу калькуляции товаров, имеющихся на складе. Файл должен иметь следующую структуру: название товара, название единицы измерения, стоимость единицы измерения, количество единиц измерения, суммарная стоимость товара, которая рассчитывается в программе. Используя сформулированный файл: а)вывести на печать название товара, имеющего наибольшую суммарную стоимость; б)вычислить суммарную стоимость всех товаров. Предусмотреть поступление новых товаров на склад, отпуск товара. 2.Определить вероятности того, что среди пяти детей одной семьи нет ни одной девочки; одна девочка; две девочки; три девочки; четыре девочки; пять девочек. Выясните, вероятность скольких девочек будет максимальной. Вероятности рождения мальчика и девочки предполагаются одинаковыми. Выявление соответствующей вероятности оформить в виде подпрограммы. Поиск максимального элемента оформить в виде подпрограммы. Указание: Вероятность рождения девочки р=0,5, мальчика – q=1-p. Вероятность того, что в семье, имеющей n детей, будет m девочек, равна C m n pm qn-m. Необходимо составить подпрограмму вычисления приведённой формулы. Далее, найденные с помощью подпрограммы вероятности необходимо поместить в массив и составить подпрограмму поиска максимального элемента массива, причём, необходимо найти все максимальные элементы массива (если их несколько). В программе предусмотреть печать необходимой текстовой информации. 3.Заданы массивы А(5), В(4), С(7). Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1. Подсчёт количества чисел попадающих в интервал от –1 до +1 оформить в виде подпрограммы. 4.Напечатать из заданного текста слово, содержащее большее число гласных букв. Слова в тексте разделены пробелами. Очень буду РАД ВАШЕЙ помощи! С НОВЫМ ГОДОМ ВСЕХ И С НАСТУПАЮЩИМ РОЖДЕСТВОМ!!!

Решение задачи: «Определить, в каком массиве больше чисел, попадающих в интервал от –1 до +1.»

Листинг программы

program zad3;
uses crt;
type massiv=array[1..10] of integer;
var
a,b,c:massiv;
i,ma,mb,mc:integer;
procedure Poisk(mas:massiv;n:integer;var kol:integer);
var j:integer;
begin
 
 for j:=1 to n do
 begin
  if (mas[j]<=1) and (mas[j]>=-1) then
  kol:=kol+1;
 end;
 writeln('колличество чисел в массиве на интервале [-1;1] равно ',kol);
end;
begin
 clrscr;
 randomize;
 for i:=1 to 5 do
 begin
  a[i]:=random(5)-2;
  write(a[i]:3);
 end;
 writeln;
  for i:=1 to 4 do
 begin
  b[i]:=random(5)-2;
  write(b[i]:3);
 end;
 writeln;
  for i:=1 to 7 do
 begin
  c[i]:=random(5)-2;
  write(c[i]:3);
 end;
 writeln;
 ma:=0;mb:=0;mc:=0;
 writeln('массив a');
  Poisk(a,5,ma);
 writeln('массив b');
  Poisk(b,4,mb);
 writeln('массив c');
  Poisk(c,7,mc);
  writeln;
  textcolor(10);
  if (ma>mb) and (ma>mc) then write('в массиве а больше чисел')
  else if (mb>ma) and (mb>mc) then write('в массиве b больше чисел')
  else if (mc>ma) and (mc>mb) then write('в массиве c больше чисел')
  else write('поровну');
 readln;
end.

Объяснение кода листинга программы

Список действий в коде:

Объявление переменных и массивов:
- program zad3;
- uses crt;
- type massiv=array[1..10] of integer;
- var a,b,c:massiv; i,ma,mb,mc:integer;
- procedure Poisk(mas:massiv;n:integer;var kol:integer);
- var j:integer;
- ...
Создание процедуры Poisk для поиска количества чисел в заданном интервале:
- procedure Poisk(mas:massiv;n:integer;var kol:integer);
- var j:integer;
- ...
- for j:=1 to n do
- if (mas[j]<=1) and (mas[j]>=-1) then
  - kol:=kol+1;
- writeln('колличество чисел в массиве на интервале [-1;1] равно ',kol);
- ...
Создание массивов a, b и c и заполнение их случайными числами:
- clrscr;
- randomize;
- for i:=1 to 5 do
- a[i]:=random(5)-2;
- write(a[i]:3);
- for i:=1 to 4 do
- b[i]:=random(5)-2;
- write(b[i]:3);
- for i:=1 to 7 do
- c[i]:=random(5)-2;
- write(c[i]:3);
- writeln;
Инициализация переменных ma, mb и mc для подсчета количества чисел в интервале:
- ma:=0;mb:=0;mc:=0;
Вывод информации о массивах a, b и c и подсчет количества чисел в интервале:
- writeln('массив a');
- Poisk(a,5,ma);
- writeln('массив b');
- Poisk(b,4,mb);
- writeln('массив c');
- Poisk(c,7,mc);
Отображение информации о том, в каком массиве больше чисел в интервале:
- textcolor(10);
- if (ma>mb) and (ma>mc) then write('в массиве а больше чисел')
- else if (mb>ma) and (mb>mc) then write('в массиве b больше чисел')
- else if (mc>ma) and (mc>mb) then write('в массиве c больше чисел')
- else write('поровну');
Ввод с клавиатуры для завершения работы программы:
- readln;