Составить программу для нахождения суммы десяти произвольных чисел на языке паскаль?

134

214

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

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

adelya63Ada

Информатика

4,4(18 оценок)

uses crt; var a,s: real; i: integer; begin clrscr; randomize; s: =0; for i: =1 to 10 do begin a: =random(100)-50; s: =s+a; write(a,' '); end; writeln; write('summa=',s); end.

polinakolesnik4

Информатика

4,8(82 оценок)

// pascalabc.net 3.1, сборка 1200 от 13.03.2016 begin var a: =arrrandom(20,10,30); a.println; var m: =readinteger('искать'); a.select((x,i)-> rec(x,(x-> x.item1=m). select(x-> x.item2+1).println end. тестовое решение: 12 19 30 28 13 10 16 29 21 21 30 20 19 24 13 16 12 16 30 30 искать 30 3 11 19 20