Эксель. Поиск решения. Очень , в долгу не останусь. Выполнить в Экселе. Имеются краски акварельные по - id1826076020210410 от Бекки5 10.04.2021 16:11

Question

Информатика: Эксель. Поиск решения. Очень , в долгу не останусь. Выполнить в Экселе. Имеются краски акварельные по 10 грн, масляные по 20 грн, пальчиковые по 50 грн за упаковку. Сколько всего упаковок красок и какого вида можно купить на 500 грн, если масляных надо купить в 4 раза больше, чем пальчиковых?

Бекки5 · Accepted Answer

Type mas=array[,]of integer;
var
  i,j:integer;
  a:mas;
  b:mas;

procedure masmin(a:array[,]of integer);
var
  n,m,i,j:integer;
  c:array of integer;
begin
n:=length(a,0)-1;
m:=length(a,1)-1;
setlength(c,m+1);
writeln('Массив минимумов:');
for i:=1 to m do
begin
for j:=1 to n do
begin
if j=1 then c[i]:=a[j,1];
if a[j,i]<c[i] then c[i]:=a[j,i];
end;
write(c[i],' ');
end;
writeln;
end;

begin
setlength(a,6,7);
writeln('Массив А:');
for i:=1 to 5 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
masmin(a);
writeln;
setlength(b,8,10);
writeln('Массив B:');
for i:=1 to 7 do
begin
for j:=1 to 9 do
begin
b[i,j]:=random(10);
write(b[i,j],' ');
end;
writeln;
end;
masmin(b);
end.

MOGZ ответил