А где варианты ответов?
а по логике от 7,1 до 7,9
Внимание! Если программа не работает, обновите версию Pascal !
begin
var mas:=ArrRandom(15,0,10); mas.Println;
mas.Select((v,i)-> v =0 ? i*i:v).Println;
end.
Ответ:
Python:
n = int(input())
s = 0
for i in range(1, n+1):
s += n
print(s)
C++:
#include <iostream>
using namespace std;
int main(){
int n, s = 0;
cin >> n;
for(int i = 1; i <= n; i++) s += n;
cout << s;
}
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7