По информатике! прочитай отрывок из сказки, впиши пропущенные слова на схеме состава. запиши адреса всех героев. в одном лесу жили эльф, хмурик и шишкоед. дом эльфа адрес эльфа: адресхмурика: адрес шишкоеда:
const n=6; var m,k,i: integer; var a: array[1..n] of integer; begin m:=integer.MinValue; writeln ('Исходный массив'); for i:=1 to n do begin a[i]:=random(20); write (a[i]:3); if a[i]>m then begin m:=a[i]; k:=i; end; end; writeln; writeln ('Наибольший элемент массива: a[',k,'] = ',m); end.
const n=50; var sa: real; i,k: integer; var a: array[1..n] of integer; begin sa:=0; k:=0; writeln ('Исходный массив'); for i:=1 to n do begin a[i]:=random(3); write (a[i]:2); sa:=sa+a[i]; end; sa:=sa/n; writeln; writeln ('Среднее арифметическое = ',sa); writeln; writeln ('Элементы массива, равные среднему арифметическому:'); for i:=1 to n do begin if a[i]=sa then begin writeln ('a[',i,'] = ',a[i]); k:=1; end; end; if k=0 then writeln ('Нет таких элементов'); end.
Program egor_sasha; var num_eg, num_sash,pri,pri1: real; var mes_eg,mes_sash: real; beginwriteln('numer egora'); readln(num_eg); writeln('numer sashi'); readln(num_sash); writeln('mesto egora (verkh=1,vniz=0)'); readln(mes_eg); writeln('mesto sashi (verkh=1,vniz=0)'); readln(mes_sash); pri: =num_sash+1; pri1: =num_eg+1; if num_eg=pri then writeln('yes') else writeln('no'); if num_sash=pri1 then writeln('yes') else writeln('no'); if mes_eg=1 then writeln('egor-high')else writeln('egor-low'); if mes_sash=1 then writeln('sasha-high')else writeln('sasha-low'); end.
