// PascalABC.NET 3.0, сборка 1128 begin var a:=ArrRandom(30,-10,20).Println(','); Writeln('Сумма элементов, больших 10, равна ', a.Where(x->x>10).Sum); end.
<u><em>Тестовое решение:</em></u> 4,-8,-7,10,13,0,11,-6,-9,-1,-7,-6,2,19,4,-10,-6,9,4,13,-6,20,-4,15,-3,-2,-7,3,16,18 Сумма элементов, больших 10, равна 125
Program qq; var z,x,y,v:real; begin z:=x*x*x+(y+v)-sqrt(0.25*(y+v)); write('Значение z=',z:6:2); <span>end. если надо с вводом значений x,y,v тогда вот так
</span>program qq; var z,x,y,v:real; begin write('Введите значение x'); readln(x); write('Введите значение y'); readln(y); write('Введите значение v'); readln(v); z:=x*x*x+(y+v)-sqrt(0.25*(y+v)); write('Значение z=',z:6:2); end.
Вариант с вводом элементов: Program prog; uses crt; var a: array [0..999] of integer; i, k, n: integer; begin clrscr; write('Размер массива n = '); readln(n); writeln; for i:=1 to n do begin write('a[',i,'] = '); readln (a[i]); end;
for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln; writeln('Количество четных чисел k = ', k); end.
Вариант с рандомными элементами: Program prog; uses crt; var a: array [0..999] of integer; i, k, n: integer; begin clrscr; randomize;
write('Размер массива n = '); readln(n); writeln; for i:=1 to n do begin a[i]:=random(100)-50; writeln('a[',i,'] = ',a[i]); end;
for i:=1 to n do if a[i] mod 2 = 0 then k:=k+1; writeln; writeln('Количество четных чисел k =' , k); end.