Предмет: Информатика, автор: german1592Azaaa

Помогите с информатикой

Приложения:

Ответы

Автор ответа: mika292

0

ничееееегггооо нее виднооо

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Химия, автор: ksandrap

Помогите пожалуйста, очень надо

6 лет назад

Предмет: Математика, автор: максимт

На сторонах AB, BC, CD выпуклого четырёхугольника ABCD отмечены точки E, F, G так, что АЕ : ЕВ = CF : FB = CG : GD = 2 : 1. Во сколько раз площадь четырёхугольника ABCD больше площади треугольника EFG?

6 лет назад

Предмет: Математика, автор: dimafediko1606

У саду росли яблуні і вишні половина всіх вишині чверть усіх яблук встановили однакову кількість дерев а всього в саду було 360 дерев скільки яблунь і скільки вишень росте в саду

6 лет назад

Предмет: Математика, автор: LeydDi

Найдите значение выражения 21•8-2•4 в 3 степени( надо расписать)

10 лет назад

Предмет: Информатика, автор: bycrownbycrown

Сформировать одномерный массив, состоящий из n элементов (Каждый элеме
нт – целое число из диапазона от 0 до 15, формируемое с помощью генератора случайных чисел, n<=20 вводится с клавиатуры). Вставить перед максимальным элементом число -5. Если таких элементов несколько, то вставить перед каждым.
____
program qw;
var
max, b, i, n, j : integer;
a:array[1..45] of integer;
begin

max:=a[1]; b:=0;
repeat
write ('Введите размерность массива n (не больше 20): ');
read(n);
until n<=20;
writeln;

for i:=1 to n do
begin
a[i]:=random(15);
if a[i]>max then
max:=a[i];
end;
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('max = ',max);

for i:=(1+b) to (n+b) do
begin
if a[i] = max then begin
a[i+1]:=a[i];
a[i]:=-5;
b:=b+1;
end
else
a[i]:=a[i+b];
end;

for i:=1 to n do
write(a[i],' ');

end.
___
что я делаю не так?

10 лет назад