hobpack
?>

3 В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования. Vark, m:integer;Dat:array[1..10]ofinteger;BeginDat[1]:=16;Dat[2]:=20;Dat[3]:=20;Dat[4]:=41;Dat[5]:=14;Dat[6]:=21;Dat[7]:=28;Dat[8]:=11;Dat[9]:=15;Dat[10]:=35;m :=50;fork :=1to10doifDat[k]< m thenbeginm :=Dat[k];end;writeln(m);End.​

Информатика

Ответы

mirdetzhuk79

uses graphabc;

begin

setwindowsize (600,555);

SetPenWidth(2);

rectangle (200,200,400,499);

FloodFill(300,300,clBurlyWood);

rectangle (225,225,275,275);

FloodFill(250,250,clLightCyan);

line (225,250,275,250);

line (250,250,250,275);

rectangle (325,225,375,275);

FloodFill(350,250,clLightCyan);

line (325,250,375,250);

line (350,250,350,275);

rectangle (225,400,275,450);

FloodFill(250,425,clLightCyan);

line (225,425,275,425);

line (250,425,250,450);

rectangle (325,425,375,500);

FloodFill(350,490,clMaroon);

pie (350,425,25,0,180);

FloodFill(350,420,clMaroon);

line (200,200,300,100);

line (300,100,400,200);

FloodFill(300,110,clChocolate);

circle (300,160,20);

FloodFill(300,160,clLightCyan);

line (375,175,375,100);

line (375,100,355,100);

line (355,100,355,155);

FloodFill(370,110,clLightGray);

circle (550,50,30);

FloodFill(525,50,clYellow);

line (535,25,510,0);

line (525,35,470,15);

line (520,50,475,50);

line (525,65,485,90);

line (537,78,505,110);

line (550,80,535,120);

line (565,75,565,120);

line (575,65,595,90);

pie (500,413,30,0,180);

FloodFill(500,400,clRed);

rectangle (495,413,505,500);

FloodFill(500,495,clChocolate);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

3 В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] — количество голосов, поданных за первого исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Текст программы приведён на пяти языках программирования. Vark, m:integer;Dat:array[1..10]ofinteger;BeginDat[1]:=16;Dat[2]:=20;Dat[3]:=20;Dat[4]:=41;Dat[5]:=14;Dat[6]:=21;Dat[7]:=28;Dat[8]:=11;Dat[9]:=15;Dat[10]:=35;m :=50;fork :=1to10doifDat[k]< m thenbeginm :=Dat[k];end;writeln(m);End.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Ubuleeva826
Volkovapavel
tanya62soldatova72
office46
vvb1383
Minchenkova
aksmobile
snopovajulia
chysvv
СмыковаДарья1969
kulibabad566
shumeikoElena362
taa19707470
Karpova
rozhkova