Магазин обслужил за день 200 покупателей, каждый из которых потратил на покупки от 10 до 1100 р. Покупателям с суммойпокупки больше 1000 р. магазин подарил скидочные карты. Составьтепрограмму, вычисляющую дневную выручку магазина, среднюю сто-имость покупки и количество выданных за день скидочных карт.​

Задача. Магазин обслужил за день 200 покупателей, каждый из которых потратил на покупки не более 1000 рублей. Посчитать дневную прибыль магазина и сумму среднего потребительского чека.

Сколько переменных нужно? (200)

Заполним массив случайными числами, используя диапазон от 1 до? (1000)

Какие алгоритмы будем использовать при решении задачи? (Нахождения суммы и среднего арифметического)

Сколько покупателей, у которых сумма чека больше среднего?

Чек каждого покупателя необходимо сравнить с суммой среднего чека. Для этого необходимо использовать цикл. (записать на доске: if a[i]sr then k:=k+1;)

За компьютерами составляем программу.

program qq;

const n=200;

var a: array[1..n] of integer;

k,s,i:integer;

begin

s:=0;

k:=0;

for i:=1 to n do

begin

a[i]:=random(1001)+1;

s:=s+a[i];

end;

for i:=1 to n do

if a[i]s/200

then k:=k+1;

writeln('Дневная прибыль магазина ',s);

writeln('Сумма среднего потребительского чека ',s/200);

writeln('У ',k,' покупателей сумма чека больше среднего');

end.

Внести изменения в программу: Есть ли покупатель, у которого сумма чека 555 рублей.

k:= 0;

for i:=1 to N do

if A[i] = 550 then k:= k+1;

if k 0 then write('Есть') else write('Не нашли!');

Есть необходимость просматривать весь массив? Нет, если нашли первого покупателя можно выйти из цикла? Как? break

k:= 0;

for i:=1 to N do

if A[i] = 555 then begin

k:= i;

break

end;

if k0 then write('Нашли') else write('Не нашли!');

К сожалению, ты не написал на каком тебе надо языке, я выбрал JavaScript
1) var array = [4,5,10,-10,5]; 
var min = 1000000;
for (var i = 0; i < 5; i++) {
if (min>array[i]) {
min = array[i];
 }
 }
alert("Минимальный элемент + "min);

2)var array = [];
for (var i = 0; i < 5; i++) {
var number = prompt("Введите число");
 array.push(number);
}
alert("Ваш массив " + array);
var min = 1000;
var max = 0;
for (var j = 0; j < 5; j++) {
  if (min > array[j]) {
  min = array[j];
  }
}
alert("Минимум = " + min);
for (var k = 0; k < 5; k++) {
if (max < array[k]) {
  max = array[k];
 }
}
alert("Максимум = " + max);

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

Нулевой шаг: создание типизированного файла нужной структуры

begin
  var f:file of real;
  Assign(f,'MyReal.bin'); Rewrite(f);
  loop 2 do begin
    SeqRandomInteger(10,1,100).Select(t->t/10).ForEach(t->Write(f,t));
    SeqRandomInteger(10,-100,-1).Select(t->t/10).ForEach(t->Write(f,t));
    end;
  f.Seek(0); // начало файла
  var b:real;
  while not Eof(f) do begin Read(f,b); Print(b) end;
  Println;
  f.Close
end.

Пример:
9.7 1 4.1 8.3 5.6 9.3 2.2 9.3 5.8 8.8 -8.8 -7.7 -1.4 -5.2 -7.2 -8.3 -1.3 -8.9 -6.3 -4.8 3.5 3.8 3.2 6 3.2 4.5 10 4.5 6.1 0.7 -8 -0.8 -3.3 -9.5 -7.9 -0.9 -7.4 -9.4 -1.8 -4.6

Собственно, программа

begin
  var f1,f2:file of real;
  Assign(f1,'MyReal.bin'); Reset(f1);
  if f1.FileSize mod 20<>0 then begin
    Writeln('Количество компонент во входном файле не кратно 20');
    Exit
    end;
  Assign(f2,'MyReal2.bin'); Rewrite(f2);
  var buf:=new real[5];
  var b:real;
  while not Eof(f1) do begin
    // переписываем пять положительных
    loop 5 do begin Read(f1,b); Write(f2,b) end;
    // считываем пять положительных в буфер
    for var i:=0 to 4 do Read(f1,buf[i]);
    // переписываем пять отрицательных
    loop 5 do begin Read(f1,b); Write(f2,b) end;
    // пишем пять положительных из буфера
    foreach var t in buf do Write(f2,t);
    // переписываем пять отрицательных
    loop 5 do begin Read(f1,b); Write(f2,b) end
    end;
  f1.Close;
  // контрольное чтение 
  f2.Seek(0); // к началу 
  while not Eof(f2) do begin Read(f2,b); Print(b) end;
  Writeln; 
  f2.Close
end.

Пример
9.7 1 4.1 8.3 5.6 -8.8 -7.7 -1.4 -5.2 -7.2 9.3 2.2 9.3 5.8 8.8 -8.3 -1.3 -8.9 -6.3 -4.8 3.5 3.8 3.2 6 3.2 -8 -0.8 -3.3 -9.5 -7.9 4.5 10 4.5 6.1 0.7 -0.9 -7.4 -9.4 -1.8 -4.6