Var Y: array [1..11] of integer;
var i, sum, n: integer;
begin
randomize;
for i:=1 to 11 do begin
Y[i]:=-10+random (21);
write (Y[i], ' ');
end;
sum:=0;
for i:=1 to 11 do begin
if (i mod 2<>0) and (Y[i]<0) then sum:=Y[i]+sum; //№1
if i mod 2<>0 then Y[i]:=Y[i]*Y[i]; //№2
if (i mod 2=0) and (Y[i]=1) then inc (n); //№3
end;
writeln;
writeln ('Сумма =', sum);
writeln ('Количество 1 на четных местах =', n);
<span>end.
</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Дополните программу вычисления функций у по заданным условиям:СРОЧНО

Serg Ivanov [14]

Есть момент, связанный с y = корень(x) при x<0

Это притоверечит главному правилу корня, что подкоренное выражение больше 0, поэтому число x я умножаю на -1

#include <iostream>

#include <math.h>

using namespace std;

int main(){

setlocale(0,"rus");

float x,y;

cout << "введите значение x";

cin >> x;

if (x>0){ y = x-7 ;}

else if (x==0) {y = 3;}

else if (x<0) {y = sqrt(-1*x);}

cout << y;

return 0;

}

0 0

3 года назад

Помогите срочно! !!!!!!!!

Татьяна Сафронова [1]

10 20 30 40 50 60 70 80 90 1000

0 0

4 года назад