Var
a : array [1..8] of integer;
i, count, sum : integer;
begin
randomize;
for i := 1 to 8 do
a[i] := random (10) + 1;
count := 0; sum := 0;
for i := 1 to 8 do
if a[i] mod 2 = 0 then count := count + 1
else sum := sum + a[i];
writeln ('count = ', count);
writeln ('sum = ', sum);
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 n1;
type z = array of integer;
var a: z;
i,n,max: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
setlength(a,n);
read(f,a[n-1]);
end;
close(f);
max:=a[0];
for i:= 1 to n-1 do
if (a[i]>max) and(a[i] mod 2<>0) then max:=a[i];
assign(f,'output.txt');
rewrite(f);
write(f,max);
close(f);
end.
