var
A: array [1..11] of Real;
i, j, aj, ai: Integer;
amax, atmp, P: Real;
begin
Randomize;
WriteLn ('Исходный массив:');
for i := Low (A) to High (A) - 1 do begin
A [i] := Random * 100;
Write (A [i]:5:2, ' ');
end;
for i := Low (A) to High (A) - 1 do begin
A [i] := Round (A [i]);
end;
for i := Low (A) to High (A) - 1 do begin
amax := A [i];
aj := i;
for j := i to High (A) do begin
if A [j] > amax then begin
amax := A [j];
aj := j;
end;
end;
if i <> aj then begin
atmp := A [i];
A [i] := A [aj];
A [aj] := atmp;
end;
end;
WriteLn;
WriteLn ('Полученный массив:');
for i := Low (A) to High (A) - 1 do begin
Write (A [i]:5:2, ' ');
end;
WriteLn;
Write ('Введите число Р: ');
Read (P);
ai := High (A);
for i := Low (A) to High (A) - 1 do begin
if P > A [i] then begin
ai := i;
Break;
end;
end;
for i := High (A) downto ai + 1 do
A [i] := A [i - 1];
A [ai] := P;
WriteLn ('Массив после вставки:');
for i := Low (A) to High (A) do begin
Write (A [i]:5:2, ' ');
end;
end.
4)ИТТРАО- в слове три гласных иао,вторая буква согласная Т
8125-4156=3969+2632=6601-7=6594
сначала выполняем действия в скобочках 24400-1=24399
42200+2=42202
24399×42202=1029686598- Ответ На второй номер
41024+81025=122049-21026=101023-140=100883
Ну хорошо, двоечник. Чем смогу, помогу. Тем более что информатика, мой любимый предмет. Значит так:
1.При сложении данных, компоновке данных можно получить новую информацию, к примеру: Если знать дату смерти Пушкина, и какой сейчас год то при определенной компоновке данный (вычесть из текущего года дату смерти) можно информацию, о годовщине смерти Пушкина.
2.Смотри пример выше.
4.Терминология, используемая на уроке
5.К примеру авария на ГЭС
6.Смотри выше - никто еще не сказал, в чем официальные причины аварии.
<span>Пока все что помню. Мож еще вспомнится. У нас последняя информатика была на экзамене, в начале лета))) </span>