Inkscape редокторында файлдардын стандартты пішімін көрсетіндер

297

419

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

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

shtondin2017

Информатика

4,6(66 оценок)

Вот держи program n_3; var n, i,s, imax: integer; a: array[1..10] of integer; begin//третья прогаwriteln('3 прога'); for i: =1 to 10 do a[i]: =random(50); for i: =1 to 10 do write (a[i],' '); n: =0; for i: =1 to 10 doif a[i]=50 then n: =i; if n=0 then write ('нет') else write (i); writeln(); writeln('2 прога'); s: =0; //вторая прогаfor i: =1 to 10 do a[i]: =random(50); for i: =1 to 10 do write (a[i],' '); imax: =1; for i: =2 to 10 doif a[i]> imax then imax: =1; writeln(); write ('наибольший элемент a[', imax, ']=' ,a[imax]); writeln(); writeln('1 прога'); begin//1 прогаfor i: =1 to 10 do a[i]: =random(50); for i: =1 to 10 do n: =n+a[i]; writeln('сумма елементов =',n); end; end.