Program zadacha;vara: array[1..5] of byte;i,max: byte;beginmax:=0;for i:=1 to 5 do begin a[i]:=random(255); write(a[i]:4);end;writeln;
for i:=1 to 5 doif a[i]>max then max:=a[i];
writeln('max=',max);
end.
Вопрос неправильно скорректирован.
Для представления текстовой информации в компьютере используется алфавит мощностью 256 символов. Один символ из такого алфавита несет 8 бит информации (28 =256). 8 бит =1 байту, следовательно, двоичный код каждого символа в компьютерном тексте занимает 1 байт памяти.
Оно же на казахском!!!,не чем помочь не могу,прости)
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (x,y):=ReadReal2();
var m: real;
if x<7 then m:=sqrt(2*x)+cos(4*y) else if (x<9) and (x>=7)
then m:=-2*x+5*power(e,-y) else m:=-x*x+3*ln(4*y);
write(m);
end.
Тебе надо сделать это в паскале правда или словестно
Словестно
1 идём сверху в низ
2 рисуем линию в права
3 по середине линии делаем линию вверх
4 возращяемся на горизонтальную линию
5 делаем отступ
6 и рисуем линию вверх
а если в паскале то надо подключать модуль graphabc