Ответы
Ответ дал:
0
program chisla;
vari,n,s1,sn,max,kolvo: byte;s: array[1..255] of byte;
beginfor i:=1 to 255 do s[i]:=random(255);max:=s[1];kolvo:=0;writeln('vvedite kol-vo chisel');readln(n);sn:=s[n];for i:=1 to n do write(s[i]:4);writeln;for i:=1 to n do if s[i]>max then begin max:=s[i]; kolvo:=kolvo+1; end;
writeln('s1=',s[1], ' sn=',sn, ' max=', max,' kolvo max=',kolvo);end.
vari,n,s1,sn,max,kolvo: byte;s: array[1..255] of byte;
beginfor i:=1 to 255 do s[i]:=random(255);max:=s[1];kolvo:=0;writeln('vvedite kol-vo chisel');readln(n);sn:=s[n];for i:=1 to n do write(s[i]:4);writeln;for i:=1 to n do if s[i]>max then begin max:=s[i]; kolvo:=kolvo+1; end;
writeln('s1=',s[1], ' sn=',sn, ' max=', max,' kolvo max=',kolvo);end.
Приложения:
![](https://st.uroker.com/files/fc6/fc658ab308a705d916fa75eb553873f4.png)
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад