Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.
Блок-схема к программе - в прилагаемом файле.
1) 1
2) 3
3) 2
4)если там один ответ то 2,если допускается несколько то 1 и 2
5) овал
6) 2
7) 2
8) 3
9)<span>Литерный тип обозначается именем </span>char<span> (от слова </span><span>character </span><span>- символ, знак).
</span>Значением переменной литерного типа является один символ из набора символов, определяемого конкретной реализацией. для любого набора символов (литер)все символы фиксированы и упорядочены;<span><span>включены все прописные буквы латинского алфавита от <span>A </span>до<span> Z</span>; это множество упорядочено по алфавиту;</span>включены десятичные цифры от 0 до 9; это множество по возрастанию цифр и связано;<span>если в реализации допускаются строчные латинские буквы от <span>a </span>от z, то они должны быть упорядочены по алфавиту;</span>включены такие символы, как пробел, запятая, точка и др.;</span><span>отношение порядка между двумя символами множества значений типа char должно быть таким же, как и между их порядковыми номерами.</span>ТАК ЧТО СКОРЕЕ ВСЕГО ЭТО БУДЕТ ОТВЕТ 1 И 2
10) 3
11 ) 3
Program zd;
const
t=0,5;
var
a,b,c:byte;
r,s:real;
begin
writeln('Введите сторону А');
readln(a);
writeln('Введите сторону В');
readln(b);
writeln('Введите угол С (в градусах)');
readln(c);
r:=c*pi/180; {Перевод из градусов в радианы}
s:=t*a*b*sin(r); {Формула для вычисления}
writeln('Результат = ',s);
readln; {Сразу выводит результат на монитор без нажатия Ctrl+F9 (вроде бы)}
end.
Вроде бы так, попробуй запустить проверить
