Написать программу для нахождения произведения элементов массива

Т.к. требуемый язык программирования не указан, то на русском:

начало программы
   ввод значений массива
   цикл по Номер от 0 до (размер массива -1)
       произведение=произведение*(элемент массива под номером "Номер")
   конец цикла
   вывод значения произведения
конец программы

В самом конце, если не видно, стоит end. Отладь её на компьютере на всякий случай

#include <iostream>

#include <clocale>

using namespace std;

int main()

{

   setlocale(LC_ALL,"Russian");

   int s;

   cout << "Введите s: ";

   cin >> s;

   switch(s)

   {

       case 0: cout << "LOSE"; break;

       case 1: cout << "DRAW"; break;

       case 3: cout << "WIN"; break;

       default: cout << "Неверное число."; break;

   }

}

Объяснение:

#include <iostream>  // Библиотека ввода-вывода

#include <clocale>  // Библиотека локализации (возможно, будет работать без нее)

using namespace std;  // Пространство имён

int main()

{

   setlocale(LC_ALL,"Russian");  // Локализация (возможно, будет работать без нее)

   int s;  // Создание целочисленной переменной

   cout << "Введите s: ";  // Вывод текста в консоль

   cin >> s;  // Ввод переменной с клавиатуры

   switch(s)  // Принимает значение s

   {

       case 0: cout << "LOSE"; break;  // Если s = 0, то выводим LOSE

       case 1: cout << "DRAW"; break;  // Если s = 1, то выводим DRAW

       case 3: cout << "WIN"; break;  // Если s = 3, то выводим WIN

       default: cout << "Неверное число."; break;  // Если s не равно ни одному из трёх чисел, то выводим Неверное число

   }

}

Вот задача для "троечников" с дополнительной оценкой:

program pr1;
uses
crt;

const
arr1 : array[1..12] of integer = (5, 4, -3, 1, 0, -4, 0, 25, -8, 0, -17, -1);

type
arr2 = array of integer;

var
arr : arr2;
n : integer;
i, sot, spl, snu : byte;
ch : char;

begin
write('Хотите использовать заданный по умолчанию массив? (y/n): ');
ch := readkey;
writeln(ch);
sot := 0;
spl := 0;
snu := 0;
if ((ch='y') or (ch='Y')) then begin
{ Используем заданный по умолчанию }
for i:=1 to 12 do begin
if arr1[i] > 0 then inc(spl);
if arr1[i] < 0 then inc(sot);
if arr1[i] = 0 then inc(snu);
write(arr1[i], ' ');
end;
writeln;
end
else begin
{ Создаём и заполняем новый массив }
write('Введите желаемый размер массива: ');
readln(n);
setLength(arr, n);
writeln('Введите элементы массива:');
for i:=0 to high(arr) do
readln(arr[i]);
for i:=0 to high(arr) do begin
if arr[i]>0 then inc(spl);
if arr[i]<0 then inc(sot);
if arr[i]=0 then inc(snu);
write(arr[i], ' ');
end;
writeln;
end;

writeln('Количество отрицательных элементов: ', sot);
writeln('Количество нулевых элементов: ', snu);
writeln('Количество положительных элементов: ', spl);
end.