В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Dmitry228q
Dmitry228q
31.10.2021 13:00 •  Информатика

Сократите эту программу : ну там мб действия нахождения максимума одной процедурой хз крч 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.

Показать ответ
Ответ:
Aaastraxan
Aaastraxan
29.05.2020 16:58

Так пойдёт?

Объяснение:

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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота