Первые 5 задач (хотя бы две любых задач из шести) на c++

Question

Информатика: Первые 5 задач (хотя бы две любых задач из шести) на c++

Tomokl · Accepted Answer

Turbo Pascal
USES CRT;
VAR A:array[1..100] of integer;
  i,n,summa:integer;

BEGIN
CLRSCR;
Randomize;

{Проверяем на размер массива, чтобы не превышал 100}
Repeat
  Writeln('Введите размер массива до 100');
  Readln(n);
Until n<=100;

{Заполняем массив случайными числами от -50 до 100}
For i:=1 to n do
  begin
A[i]:=-50+Random(100);
Write(A[i],' ');
  end;

summa:=0;

{Находим отрицательные элементы массива и складываем}
For i:=1 to n do
  if A[i]<0 then summa:=summa+A[i];

Writeln;
Writeln('Сумма отрицательных элементов массива = ',summa);

READLN;
END.
Массив одномерный a n элементов подсчитать произведение отрицательных элементов этого массива решите

Массив одномерный a n элементов подсчитать произведение отрицательных элементов этого массива решите

MOGZ ответил