C++ 1. Дана программа, которая определяет последнее положительное и первое отрицательное число в массиве. Найти и исправить синтаксические и логические ошибки, перечислив их. #include using namespace std; int main() { double size = 8; double arr[size]={-5.7, 6.0, 2, 0, -4.7, 6, 8.1, -4, 0}; int positive = 0; for (int i = size; i >= 0; i++) { if (arr[i] > 0) { positive = arr[i]; break; } } int negative = 0; for (int i = 0; i < size; i++) { if (arr[i] < 0) { negative = arr[i]; break; } } cout << "Last positive number: " << positive << endl; cout << "First negatine number: " << negative << endl; return 0; } Входными данными во всех описанных ниже заданиях является массив из 10 элементов, заполненный пользователем с клавиатуры.

#include <iostream>

using namespace std;

int main()

{

//double size = 8;//необходима константа на целое число  

const int size = 8;

//double arr[size] = { -5.7, 6.0, 2, 0, -4.7, 6, 8.1, -4, 0 }; //лишнее число. Должно быть 8

double arr[size] = { -5.7, 6.0, 2, 0, -4.7, 6, 8.1, -4 };

//int positive = 0; //в массиве тип double, будет потеря данных если использовать int

double positive = 0;

//for (int i = size; i >= 0; i++)//если идем с конца, то нужно начинать с size-1, т.к. нумерация в массиве с нуля и i--, т.к. идем с конца

for (int i = size - 1; i >= 0; i--)

{

 if (arr[i] > 0)

 {

  positive = arr[i];

  break;

 }

}

//int negative = 0;//в массиве тип double, будет потеря данных если использовать int

double negative = 0;

for (int i = 0; i < size; i++)

{

 if (arr[i] < 0)

 {

  negative = arr[i];

  break;

 }

}

cout << "Last positive number: " << positive << endl;

cout << "First negatine number: " << negative << endl;

return 0;

}

Объяснение:

В этой проге 1,2,3
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,p,min,max,k2:integer;
begin
   P:=1;
   s:=0;
 for i := 1 to 10 do begin
 a[i]:= random(31);
 write(a[i]:4);
 end;
 writeln;
    min:=a[1];
    max:=a[1];
    
   for i:=1 to 10 do begin
   
     If  min>a[i] then begin
      min:=a[i];
      k:=i;
      end;

      s:=a[i]+s;
      p:=a[i]*p;
      
      If max<a[i] then
       max:=a[i];
       K2:=i;
      end;
writeln('МИнимальное число:',min,'   номер :',k);
writeln('Сумма :',s,' Произведение :',p);
for i:=1 to 10 do begin
If a[i] <> max then
write(a[i]:3)
 else write(' 999');
 end;
 writeln;
writeln('Максимальное число :',max,' номер ',k2);
end.
 
Вот 4;
program p2;
uses crt;
var a:array [1..10] of integer;
i,p:integer;
begin
   P:=1;
 for i := 1 to 10 do begin
 a[i]:= random(60)-30;
 write(a[i]:4);
 end;
 writeln;
 p:=1;
  for i:=1 to 10 do begin
   If a[i] < 0 then
    p:=p*a[i]; ;
    end;
   writeln('Произведение  :',p);
end.

Function getSumFor(n:integer):integer;var sum, i:integer;begin  sum := 0;  for i:=1 to n do   begin    sum := sum + i;  end;  result := sum;end;
function getSumWhile(n:integer):integer;var sum, i:integer;begin  sum := 0;  i := 1;  while i <= n do  begin    sum := sum + i;    i := i + 1;  end;  result := sum;end;
function getSumRepeat(n:integer):integer;var sum, i:integer;begin  i := 1;  sum := 0;  repeat    sum := sum + i;    i := i + 1;  until i > n;  result := sum;end;
begin  writeln(getSumFor(1));  writeln(getSumWhile(1));  writeln(getSumRepeat(1));end.