Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
см схему на стр 15, № 34
var a: array[1..15] of char;
i,min,max: integer;
begin
min=1;
max=1;
for i: = 1 to 15 do begin
a[i]: = chr(random(256));
if a[min]> a[i] then min: =i;
if a[max]< a[i] then max: =i;
end;
writeln(a[min], a[max]);
end.
program dl9_aleksandr4;
var k: real; a: integer;
a: =2;
repeat
k: =sqrt(a);
writeln ('sqrt(a)=',k);
a: =a+2;
until a< =50;
readln
Популярные вопросы