Программа:
program test;
Uses Math;
const
N = 5;
var
A : array [1..N] of integer; {Массив элементов}
i : integer; {Счетчик цикла}
P : Int64; {Произведение элементов}
mn : integer; {Минимальный элемент массива}
C : integer; {Количество положительных элементов}
begin
P := 1;
C := 0;
for i := 1 to N do begin
{Вводим очередной элемент массива}
Read( A[i] );
{Вычисляем произведение}
P := P * A[i];
{Положительные элементы подсчитываем}
if A[i] > 0 then C := C + 1;
end;
{Находим минимальный }
mn := A[1];
for i := 2 to N do
mn := min( mn, A[i] );
WriteLn('Произведение - ', P);
WriteLn('Количество положительных - ', C);
WriteLn('Минимальный элемент - ', mn);
end.
Результат выполнения программы:
![Дано масив А[1..5]. Запишіть оператори для реалізації завдань: а) ввести з клавіатури значення елеме](/tpl/images/1774/6591/ee5c7.jpg)
#include <iostream>
#include <string>
using namespace std;
int main()
{
int i=0;
string s;
getline(cin, s);
while (s[i])
{
if (s[i]==' ' && s[i+1]==' '){
s.erase(i,1); i--;
}
i++;
}
if (s[0]==' '){
s.erase(0,1);
}
if (s[s.length() - 1]==' '){
s.erase(s.length() - 1, s.length() - 1);
}
cout << s << endl;
return 0;
}
Объяснение:
Если тебе нужно с Сириусом, добавь меня, я думаю мы сработаемся)
var i,s,p: longint;
begin
s:=0;
p:=1;
for i:=1 to 38 do if i mod 2=0 then s:=s+i;
for i:=2 to 25 do if i mod 4=0 then p:=p*i;
writeln('сумма: ',s);
writeln('произведение: ',p);
end.