Const N = 10;
var i, max: integer;
a: array[1..N] of integer;
begin
  max := 1;
  writeln('Массив до: ');
  for i := 1 to N do begin
    a[i] := random(10);
    write(a[i]:3);
    if(a[i] > a[max]) then max := i;
  end;
  writeln(#10, 'Массив после: ');
  for i := 1 to N do begin
    if(a[i] > 1) and (a[i] < 4) then a[i] := a[max];
    write(a[i]:3);
  end;
  writeln(#10, 'Максиммальный элемент: ', a[max], #10, 'Его индекс: ', max);
end.

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА, БУДУ БЛАГОДАРНА!! Пользуясь графиком изменения работ о способности, найдите истинные высказывания:

Valucha [305]

Истинные утверждения: Б,д,з,и,к,л

0 0

4 года назад

| x | - | y | _________ |1+| xy |

Сергей Шошин [27]

Модуль это станет число без минусов. Тогда:
В числителе х-у а в знаменателе 1+ху.

0 0

4 года назад

Прочитать ещё 2 ответа

Експидиція починає підйом на гру з висоти 3000 м з початковою швидкістю 200м/год. Через кожні 100 м швидкість підйому зменшуєтьс

лунара

Var h,v,t,t1:real; i:integer;
begin
v:=200/60; // м/мин
t:=0;
h:=3000;writeln(' h t');
for i:=1 to (4200-3000) div 100 do
begin
t1:=100/v;
t:=t+t1;
h:=h+100;
writeln(h:4:0,' ',t:5:1);
v:=v*0.9;
end;
writeln(t:5:1,' мин');
end.

Результат:
<span> h t
3100 30.0
3200 63.3
3300 100.4
3400 141.5
3500 187.2
3600 238.1
3700 294.5
3800 357.2
3900 426.9
4000 504.4
4100 590.4
4200 686.0
686.0 мин</span>

0 0

3 года назад