Дано натуральное число n и вводятся числа a1, a2 , a3 , …, an. найти сумму их кубов в паскале

255

350

Посмотреть ответы 2

Ответы на вопрос:

tikhonoffpawel

Информатика

4,5(63 оценок)

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin var a: =readarrinteger('вводите числа: ',readinteger('n=')); writeln('сумма кубов ',a.select(x-> x*x*x).sum) end. тестовое решение: n= 6 вводите числа: 6 3 5 2 4 1 сумма кубов 441

ПЕТУСШОГ

Информатика

4,5(95 оценок)

Program findmin; const n = 5; var min,i: integer; a: array[1..n] of integer; begin for i: =1 to n do readln(a[i]); min: =a[1]; for i: =2 to n do if a[i]< min then min: =a[i]; writeln('min ',min); end.