Const
 n = 10;

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

begin
 randomize;

 writeln('Исходный массив:');
 for i := 1 to n do
 begin
 a[i] := random(201) - 100;
 write(a[i], ' ');
 end;
 writeln;

 c := 0;
 for i := 1 to n do
 if a[i] > 0 then
 begin
 c := c + 1;
 w[c] := a[i];
 end;

 writeln('Кол-во положительных элементов: ', c);
 for i := 1 to n do
 begin
 if a[i] <= 0 then
 begin
 c := c + 1;
 w[c] := a[i];
 end;
 end;

 writeln('Результат:');
 for i := 1 to c do
 write(w[i], ' ');
end.

0 0

4 года назад

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

На каком языке программирования ведется большинство современных разработок в области ИИ и машинного обучения?

Лиза647479538

Lisp,Java,Python,Prolog . Но больше всего пишут в области ИИ на Python так как он очень быстрый и удобный. Также под него есть огромное кол-во библиотек под ИИ.

0 0

4 года назад

Найти произведение квадратов целых чисел от 5 до 27. составить программу на языку бейсик СРОЧНО

Кошарик

Microsoft QBasic 1.0

DIM p AS DOUBLE
p = 1
FOR i = 5 TO 27
p = p * i ^ 2
NEXT i
PRINT p

Результат
2.05846315812941D+53
Точное значение (для контроля) вычисленное в программе компьютерной математики: 205846315812941087891721086815311205761024000000000000

0 0

4 года назад

Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В включительно. Входные данные: ввести два

rem-rebel [178]

Var i,a,b,r:integer;
begin
read(a,b);
r:=1;
for i:=a to b do
r*=i;
writeln(r);
end.

0 0

4 года назад