1.
const n=5;
var
a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
write(a[i], ' ');
end.
2.
const n=10;
var
a: array[1..n] of integer;
i: integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if i mod 3 = 0 then
write(a[i], ' ');
end.
1. Tux paint
2. Animation
1.Создать новую страницу
2.сохранить данную работу
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var m:=ReadInteger('M=');
var a:=MatrixRandom(m,m,1,9);
for var i:=0 to m-1 do begin
for var j:=0 to m-1 do Print(a[i,j]);
Writeln
end;
var si:=0;
for var i:=0 to m-1 do begin
var sj:=0;
for var j:=0 to m-1 do sj+=sqr(a[i,j]);
si+=sj
end;
Writeln('S=',sqrt(si))
end.
<u><em>Тестовое решение:</em></u>
M= 6
6 5 2 7 1 1
8 7 9 3 1 8
2 1 7 9 5 7
3 2 8 1 1 8
3 9 1 2 6 7
5 3 5 4 8 3
S=32.6190128606002
Var mass:array[1..44] of integer;
i:integer;
begin
randomize;
for i:=1 to 44 do
begin
mass[i]:=(random(31)-random(19));
if (i>12) and (i<27) then writeln('номер ',i,' равен ',mass[i]);
end;
end.
Пример работы:
номер 13 равен 15
номер 14 равен -17
номер 15 равен -16
номер 16 равен -3
номер 17 равен 10
номер 18 равен 29
номер 19 равен -17
номер 20 равен 1
номер 21 равен -1
номер 22 равен 8
номер 23 равен -16
номер 24 равен 26
номер 25 равен -4
номер 26 равен 15
Если нужно достать минимальное число шаров чтобы среди них точно оказалось по одному каждого цвета, то
Допустим, первые 5 шаров - синие (всегда рассматривается худший случай)
Допустим, следующие 3 шара - красные
Тогда все оставшиеся шары будут желтыми, и достаточно достать любой из них
5+3+1=9
Ответ: 9 шаров.
P.S. Если достать меньшее кол-во, то возможна ситуация, при которой будут не все шары. Например, если достать 8 шаров, возможно что будут только синие и красные. Но если достать 9, то в любом случае среди них будет каждый цвет. Хотя, возможна ситуация, в которой при наличии 3 шаров будут присутствовать шары каждого цвета.