На паскале
---
uses crt;
const n=3;
m=3;
var a: array [1..n,1..m] of integer;
x,y,k: integer;
begin
k:=0;
for x:=1 to n do begin
for y:=1 to m do begin
a[x,y]:=random(21)-10;
if a[x,y] mod 2=1 then inc(k);
write(a[x,y]:4);
end;
writeln;
end;
writeln('Количество неотрицательных нечетных элементов: ',k);
<span>end.</span>
Const n=15;
var a:array[1..n]of integer;
i,min,k:integer;
begin
for i:=1 to n do a[i]:=Random(100)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
min:=a[1];
for i:=1 to n do
if (a[i]<min) and (a[i]>0) then begin
min:=a[i];
k:=i;
end;
write('минимальный из положительных элементов массива ',min,', его порядковый номер ',k);
<span>end.</span>
1) 8×70=560
2) 3500÷560=6,25
Ответ:6,25
Uses crt;
var a,b,c,Sk,Sp:real;
Begin
Clrscr;
writeln('vedut a');
readln(a);
writeln('vedut b');
readln(b);
writeln('vedut c');
readln(c);
sk:=a*a;
sp:=b*c;
if sk>sp then
writeln('plocha kvadrata bolhe');
if sk<sp then
writeln('plocha pramoygolnuka bolhe');
readln;
End.
Если бы я был организатором производства печенья, то сначала потратил бы дни на приобретение 8 духовок, на это ушло бы 8 * 6 = 48 дней. Потом с помощью 8 духовок и 1 пары рук за 60 дней сделал бы 540 пачек печенья. Итого, 108 дней и 540 пачек, из которых 8 сверхплановых можно кому-нибудь подарить.
Кто быстрее, ребята?