Добавил:
dima_meh96
kostikboritski@gmail.com
Выполнение курсовых, РГР технических предметов Механического факультета. Так же чертежи по инженерной графике для МФ, УПП. Писать на почту. Дипломы по кафедре Вагоны
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:информатика (не сорт) / Prg_17_3_МЭ11_Марушко_Лукашеня
.pas Program n3;
var
b: array [1..8] of integer;
i,s,nmax,max: integer;
begin
randomize;
for i:=1 to 8 do
b[i]:=random (20)-10;
for i:=1 to 5 do
write(b[i], ' ' );
max:=b[1];nmax:=1;
for i:=2 to 5 do
if b [i]>max
then
begin
max:=b[i];
nmax:=1;
end;
writeln;
writeln(max);
writeln(nmax);
end.
var
b: array [1..8] of integer;
i,s,nmax,max: integer;
begin
randomize;
for i:=1 to 8 do
b[i]:=random (20)-10;
for i:=1 to 5 do
write(b[i], ' ' );
max:=b[1];nmax:=1;
for i:=2 to 5 do
if b [i]>max
then
begin
max:=b[i];
nmax:=1;
end;
writeln;
writeln(max);
writeln(nmax);
end.
Соседние файлы в папке информатика (не сорт)