Измените, чтобы значения размеров занимаемого поля вводились с клавиатуры. скомпилируйте. сохраните. program diagram; uses crt, graphabc; const a: array[1..5] of integer = (47,63,22,27,12); b: array[1..5] of string = ('рожь','пшеница','овес','ячмень','гречиха'); var u, u0, s, i: integer; begin setwindowsize(600, 600); s: =0; u0: =0; for i: =1 to 5 do s: =s+a[i]; //вычисление суммарной площади for i: =1 to 5 do begin writeln(b[i],' ',a[i],' га ',round(100a[i]/s),' %'); setbrushcolor(rgb(random(255),random(255),random(; u: =u0+round(a[i]360/s); //вычисление конечного угла сектора pie(220,240,140,u0,u); //рисование сектора u0: =u; //новое значение начального угла следующего сектора end; end.

107

430

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

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

katarina10991

Информатика

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

ввод массива с клавиатуры выглядит вот так: varrazmer, i2: integerwriteln (‘введите размер массива’); readln (razmer); for i2: =1 to razmer dobeginwriteln (i2,’ ’); readln (a[i2]); массив в вводится так

jasmine9

Информатика

4,7(96 оценок)

//pascalabc.net//версия 3.3, сборка 1634 (14.02.2018)// а,a begin arrfill(readinteger('n='),readinteger('x='; end.// а,бbegin var x: =readinteger('x='); var a: =arrgen(readinteger('n='),i-> x+i); a.println; end.// b,a begin var (x,n): =readinteger2('x,n='); var a: =arrgen(n,i-> x-(n-1-i)); a.println; end.// b,бbegin arrgen(readinteger('n='),i-> 2**(i+; end.