Сократите эту программу : ну там мб действия нахождения максимума одной процедурой хз крч program zelda; uses crt; const z=100; varu1,u2,u3: array[1..z]of integer; i,max1,max2,max3: integer; procedure ch1; var n,i,max1,max2,max3: integer; beginn: =7; for i: =1 to n dou1[i]: =random(100); for i: =1 to n dowriteln('элементы массива: ',u1[i]); max1: =u1[i]; max2: =u1[i]; max3: =u1[i]; for i: =1 to n doif u1[i]> max1 then beginmax1: =u1[i]; end; for i: =1 to n doif (u1[i]> max2) and (u1[i]< > max1) then beginmax2: =u1[i]; end; for i: =1 to n doif (u1[i]> max3) and (u1[i]< > max1) and (u1[i]< > max2) then beginmax3: =u1[i]; end; writeln('max1: ',max1,' max2: ',max2,' max3: ',max3); end; procedure ch2; var n,i,ind,max1,max2,max3: integer; beginn: =13; for i: =1 to n dou2[i]: =random(100); for i: =1 to n dowriteln('элементы массива: ',u2[i]); ind: =0; max1: =u2[i]; max2: =u2[i]; max3: =u2[i]; for i: =1 to n doif u2[i]> max1 then beginmax1: =u2[i]; end; for i: =1 to n doif (u2[i]> max2) and (u2[i]< > max1) then beginmax2: =u2[i]; end; for i: =1 to n doif (u2[i]> max3) and (u2[i]< > max1) and (u2[i]< > max2) then beginmax3: =u2[i]; end; writeln('max1: ',max1,' max2: ',max2,' max3: ',max3); end; procedure ch3; var n,i,max1,max2,max3: integer; beginn: =17; for i: =1 to n dou3[i]: =random(100); for i: =1 to n dowriteln('элементы массива: ',u3[i]); max1: =u3[i]; max2: =u3[i]; max3: =u3[i]; for i: =1 to n doif u3[i]> max1 then beginmax1: =u3[i]; end; for i: =1 to n doif (u3[i]> max2) and (u3[i]< > max1) then beginmax2: =u3[i]; end; for i: =1 to n doif (u3[i]> max3) and (u3[i]< > max1) and (u3[i]< > max2) then beginmax3: =u3[i]; end; writeln('max1: ',max1,' max2: ',max2,' max3: ',max3); end; beginch1; ch2; ch3; end.
NickolaiDress
2
16.04.2019 19:24
0
Другие вопросы по теме Информатика
Neal12
15.12.2020 19:24
panicheviwan
15.08.2019 15:10
alins3
15.08.2019 15:10
neagsivb
30.01.2022 11:57
alenafgfgf
30.01.2022 11:47
Саняша69
12.03.2021 09:32
BerikLord777
12.03.2021 09:32
nastyakulikova5
19.05.2019 23:30
yourdream1806
19.05.2019 23:30
lizapustyreva07
19.05.2019 23:30
Популярные вопросы
- Составить предложения с междометием (чувства)-ура,ай,увы,(побуждения)-ну,вон,прочь....
2 - Всредневековой россии, , не было такого десятилетия, в которое...
2 - Сколько цинка содержащего 5% неактивных примесей , требуется для...
2 - Площа прямокутника 120 см2, а ширина 10см.ширину цього прямокутника...
3 - После дождя клев рыбы замето усиливается. чем можно объяснить этот...
1 - Сколько граммов хлорида калия следуетщ добавить к 450 г 8%-ного...
3 - Підготувати текст як я провів зимові канікули?...
1 - Как изменится, скорость реакции, если концентрацию второго реагирующего...
1 - Write a paragraph about or a newspaper you like to read explain...
1 - Короче нужно утворити вид запропонованих имен чоловичи та жиночи...
2
Так пойдёт?
Объяснение:
program Zeldaproj1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
const z=100;
type mas=array[1..z] of integer;
var
u1:mas;
max1,max2,max3:integer;
procedure ch1(n:integer);
var i:integer;
begin
for i:=1 to n do
u1[i]:=random(100);
for i:=1 to n do
writeln('Элементы массива: ',u1[i]);
max1:=u1[i];max2:=u1[i];max3:=u1[i];
for i:=1 to n do
if u1[i]>max1 then begin
max1:=u1[i];
end;
for i:=1 to n do
if (u1[i]>max2) and (u1[i]<>max1) then begin
max2:=u1[i];
end;
writeln('max1: ',max1,' max2: ',max2,' max3: ',max3);
end;
begin
ch1(5);
readln;
ch1(7);
readln;
ch1(13);
readln;
end.