begin imin := 2; for i := 1 to n do begin a[i] := random(100) - 50; if (i mod 2 = 0) and (a[imin] > a[i]) then imin := i; end; writeln('A[', imin, '] = ', a[imin]); {вторая часть} writeln(); a[1] := 2; for i := 2 to n do a[i] := 2 * a[i - 1];
1. var a: array [1..11] of integer; i, min, imin: integer; begin for i:=1 to 10 do read(a[i]); min:=32000;imin:=0; for i:=1 to 10 do if (a[i] mod 2) = 0 then if a[i]<min then begin min:=a[i]; imin:=i; end; write('Минимальное:', min, ' Индекс:', imin); end.
2. function stepen(c, s: integer):integer; var j, rez: integer; begin rez:=c; for j:=1 to (s-1) do rez:=rez*c; stepen:=rez; end; var a: array [1..11] of integer; i, min, imin: integer; begin for i:=1 to 10 do a[i]:=stepen(2, i); for i:=1 to 10 do write(a[i], ' '); end.
Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.
Розв’язання:
1 спосіб.
22 – 2 = 20 (ол.) - олівців порівно у чотирьох пачках (дві у старшого брата, одна у середнього, одна у молодшого)
20 : 4 = 5 (ол.) - олівців у молодшого брата.
5 • 2 = 10 (ол.) - олівців у старшого брата.
5 + 2 = 7 (ол.) - олівців у середнього брата.
2 спосіб.
Нехай х олівців у молодшого брата, тоді
2 • х олівців у старшого брата,
х + 2 олівців у середнього брата.
Складемо рівняння
2х + х + х + 2 = 22
4 х + 2 = 22
4х = 22 – 2
4х = 20
х = 20 : 4
х = 5
У молодшого брата 5 олівців.
5 + 2 = 7 , середнього – 7 олівців,
5 • 2 = 10 , у старшого – 10 олівців .
Відповідь: 5 олівців, 7 олівців, 10 олівців.
Розв’язання:
1 спосіб.
22 – 2 = 20 (ол.) - олівців порівно у чотирьох пачках (дві у старшого брата, одна у середнього, одна у молодшого)
20 : 4 = 5 (ол.) - олівців у молодшого брата.
5 • 2 = 10 (ол.) - олівців у старшого брата.
5 + 2 = 7 (ол.) - олівців у середнього брата.
2 спосіб.
Нехай х олівців у молодшого брата, тоді
2 • х олівців у старшого брата,
х + 2 олівців у середнього брата.
Складемо рівняння
2х + х + х + 2 = 22
4 х + 2 = 22
4х = 22 – 2
4х = 20
х = 20 : 4
х = 5
У молодшого брата 5 олівців.
5 + 2 = 7 , середнього – 7 олівців,
5 • 2 = 10 , у старшого – 10 олівців .
Відповідь: 5 олівців, 7 олівців, 10 олівців.
n = 10;
var
i, imin: integer;
a: array[1..n]of integer;
begin
imin := 2;
for i := 1 to n do
begin
a[i] := random(100) - 50;
if (i mod 2 = 0) and (a[imin] > a[i]) then
imin := i;
end;
writeln('A[', imin, '] = ', a[imin]);
{вторая часть}
writeln();
a[1] := 2;
for i := 2 to n do
a[i] := 2 * a[i - 1];
for i := 1 to n do
write(a[i], ' ');
end.