Вводить числа с клавиатуры, конец ввода число 999.найти и выдать на экран произведение отрицательных чисел.организовать повтор через запрос(повторять-y, n-нет)при вводе n-выход из программы

program bratish77; uses crt; var  p,temp: integer;   yes: char; begin  yes: ='y';   writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   p: =1;   temp: =1;   writeln('вводите числа (для окончания ввода введите 999) ');   while (yes = 'y') or (yes = 'y') do      begin          p: =1;           temp: =1;           repeat              write('число: '); readln(temp);                   if temp < 0 then p: =p*temp;           until temp=999;           writeln('произведение отрицательных чисел равно ',p);               write('повторить? (y/n) '); readln(yes);       end;   writeln('выход из программы');     end.

 

на языке c++:

 

#include < stdio.h>

#include < stdlib.h>

#include < string.h>

 

 

using namespace std;

 

int main () {

int result = 1;

int c;

string answer = "";

 

while (1) {

cout < < "введите число";

cin > > c;  

if (c == 999)

  if (result == 1)

{cout < < "не введены отрицательные числа"< < endl; return 0; }

else {cout < < "результат: " < < result < < endl; return 0; }

else if (c< 0)result *= c;

cout < < "продолжить? < yes> | < no> ";

сin.getline(answer, sizeof(string));

 

  if (strcmp(answer, "yes")==0) continue;

else return 1;

}

}

Var  a : array [1..10] of integer;   b, i : integer; begin   randomize;   write('исходный массив: ');   for i : = 1 to 10 do     begin     a[i] : = random(10);     write(a[i], chr(32));     if (a[i] mod 2) = 0 then b += a[i];   end;   writeln();   writeln('сумма четных: ', b); end.- написано в  pascal abc- массив из 10 элементов заполняется случайными числами от 0  до 10- суммируются четные значения  элементов, а не элементы с четными индексами

Uses crt; type mas = array [1.. 8, 1.. 8] of integer; var m: mas; i,j,k: integer; a: array[1..28]of integer;       begin           randomize;               for i: =1 to 8 do                 begin                     for j: =1 to 8 do                     begin                           m[i,j]: =random(190)-95;                           write(m[i,j]: 4);                       end;                     writeln;                 end; for i: =1 to 8 do          for j: =1 to 8 do                    if i> j then                            begin                                    k: =k+1;                                     a[k]: =m[i,j];                             end;     writeln;             for i: =1 to 28 do                    write(a[i]: 4);     end.