В последнее время в ряде супермаркетов явилис ись мультимедийные панели, позволяющие получить информацию о наличии товара и магазинах торговых сетей. Предположим, что вам необходимо купить молоко. 1. Найдите молоко с самой ранней датой производства. 2. Найдите количество магазинов, которые продают молоко по улице Ленина. 3. Найдите молоко с наименьшей стоимостью за грамм. 4. Выпишите номера магазинов, отсортированных по названию магазина. 5. Выпишите номера магазинов, отсортированных по стоимости
Написал 2 варианта, поскольку формула дана вам была не до конца. В ней скорее всего должны стоять где-то скобки. Если нет, то запишите эту же программу (из любых), только уберите в формуле скобки. Надеюсь объяснил понятно
Вариант по той формуле, как она дана (как я её понял
pascal
Объяснение:
Задание 1
var
i, j, mini, minj: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(51) - 20;
Write(a[i,j]:6);
if a[i, j] <= min then begin
min := a[i, j];
mini := i;
minj := j;
end;
end;
WriteLn;
end;
WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);
end.
Задание 2
var
i, j: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(11) + 20;
Write(a[i,j]:6);
if a[i, j] <= min then min := a[i, j];
end;
WriteLn;
end;
for i := 1 to 6 do
for j := 1 to 8 do
a[i, j] := a[i, j] - min;
WriteLn('Новый массив:');
for i := 1 to 6 do begin
for j := 1 to 8 do begin
Write(a[i,j]:6);
end;
WriteLn;
end;
end.
program z1;
var x: integer;
y: real;
begin
read(x);
y:=2*sin(3*x-12*x);
writeln('y равен: ', y);
end.
Либо
program z1;
var x: integer;
y: real;
begin
read(x);
y:=2*(sin3*x)-12*x;
writeln('y равен: ', y);
end.
Объяснение:
Написал 2 варианта, поскольку формула дана вам была не до конца. В ней скорее всего должны стоять где-то скобки. Если нет, то запишите эту же программу (из любых), только уберите в формуле скобки. Надеюсь объяснил понятно
Вариант по той формуле, как она дана (как я её понял
program z1;
var x: integer;
y: real;
begin
read(x);
y:=2*sin(3*x)-12*x;
writeln('y равен: ', y);
end.