Решить а) расставьте строки программы в правильном порядке. p : = x * y * k; write('введите три целых числа через пробел'); end. var х,у,k,z,p: integer; z : = x + y + k; program zadanie1; write ('сумма = ',z); readln (x,y,k); write ('произведение = ',p); begin б) ответьте на вопросы: 1) запишите какой тип переменных используется в программе. 2) сколько переменных используется в программе? запишите названия используемых переменных. 3) в какой строке программа получает данные от пользователя? 4) что будет выведено на экран, если пользователь введет значения: 6, 9, 3
var a, b, c, i, n, j :integer;
s :array[1..10000] of integer;
begin
clrscr;
writeln('Введите размер массива');
read(n);
for i:=1 to n do
begin
s[i]:=random(46)-15;
writeln ('s[', i,']=', s[i]);
end;
a:=s[1];for i:=1 to n do
if s[i]>a then
begin
a:=s[i];
b:=i;
end;
writeln ('Наибольший элемент s[', b, ']=',a);
end.
P.S. Надеюсь на благодарность и лучший ответ.