Запишите по 2 суждения: 1. Из истории
2.из географии
3.из биологии
4. из математики
5. из русского языка
6. из литературы
7. из информатики
С меня :) ПРОСТО ЛЕНЬ !!

Question

Информатика: Запишите по 2 суждения: 1. Из истории 2.из географии 3.из биологии 4. из математики 5. из русского языка 6. из литературы 7. из информатики С меня :) ПРОСТО ЛЕНЬ !!

reor1878p02hjw · Accepted Answer

Const
n = 15;

var
i: integer;
a: array[1..n] of integer;

begin
Randomize;
writeln('Исходный массив');
for i := 1 to n do
begin
    a[i] := Random(100) - 50;
    write(a[i]:6);
    if a[i] < 0 then a[i] := sqr(i)
end;
writeln;
writeln('Результирующий массив');
for i := 1 to n do write(a[i]:6);
writeln
end.

Тестовое решение:

Исходный массив
     3    37    40    17    20   -12   -27     4    34    -1     9    42    -6   -36    28
Результирующий массив
     3    37    40    17    20    36    49     4    34   100     9    42   169   196    28

Запишите по 2 суждения: 1. Из истории 2.из географии 3.из биологии 4. из математики 5. из русского языка 6. из литературы 7. из информатики С меня :) ПРОСТО ЛЕНЬ !!

MOGZ ответил

Запишите по 2 суждения: 1. Из истории
2.из географии
3.из биологии
4. из математики
5. из русского языка
6. из литературы
7. из информатики
С меня :) ПРОСТО ЛЕНЬ !!