Программа:
{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}
{Copyright (c) 1993-2017 by Florian Klaempfl and others}
{Target OS: Linux for x86-64}
program test;
const
start = -100;
finish = 50;
count = 100;
var
X : array of integer; {массив}
i : integer; {Счётчик цикла}
S : integer; {Сумма положительных}
begin
Randomize;
SetLength(X, count+1);
{Генерация массива из 100 элементов от -50 до 50}
for i := 1 to count do
X[i] := Round( Random * start) + finish;
{Вывод сгенерированного массива на экран}
for i := 1 to count do
write(X[i]:4);
writeln; writeln;
{Подсчёт положительных элементов}
S := 0;
for i := 1 to count do
if (x[i] > 0) then
S := S + x[i];
writeln('Сумма положительных S = ', S);
end.
№3
#include <iostream>
using namespace std;
int main() {
float y, x = 0.2;
if (x < 1)
y = abs(x);
else if (x > 4)
y = 1 + sqrt(x);
else if (0 <= x <= 4)
y = 3.5 + 2 * x;
//наш X войдет в 2 промежутка, выведем первое выполненное условие
cout << y;
return 0;
}
№4
#include <iostream>
#include <cmath>
using namespace std;
int main() {
int x = 3;
float y;
if (x < -2)
y = pow((x+2),2);
else if (-2 <= x <= 0)
y = x+2;
else if (x>= 0)
y = pow((x+2),3);
cout << y;
return 0;
}