Skip to content

Instantly share code, notes, and snippets.

@protonesso

protonesso/one.pas

Created Nov 5, 2019
Embed
What would you like to do?
{ кодим с Егоркой Михайловым xd}
program hitobito;
var
ki: array[1..5] of Integer;
tsuchi: Integer;
i: Byte;
begin
writeln('Пишите здесь: ');
for i := 1 to 5 do
read(ki[i]);
tsuchi := ki[1];
for i := 1 to 5 do
if ki[i] > tsuchi then
tsuchi := ki[i];
writeln('Результат: ', m);
End.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.