1-В
2 -А
Сейчас ещё подумаю
Var a:array[1..100] of integer;
i,s:integer;
begin
for i:=1 to 8 do begin
a[i]:=random(11)-0;
write(a[i]:4);
end;
s:=0;
for i:=1 to 8 do begin
if a[i] mod 2<>0 then
s:=s+1;
end;
writeln;
writeln(s);
end.
1.Мышкой надавить на пиктограмму следующего файла
2. Клавишами управления курсором перемещать для выделения пиктограммы следующего файла.
1 а)Уши
б) Глаза, уши
в) Глаза
г) Глаза, нос
д) Язык
е) Уши
ж) Кожа
2 а) Информативное (если ранее вы этого не знали, иначе неинформативное)
б) Неинформативное, т.к. это общеизвестный факт
в) Неинформативное - вы это знали, какая вчера была погода
г) Информативное, т.к. несет новые знания
д) Неинформативное, т.к. непонятное для вас
е) Зависит от того знаете ли вы, что Dog на английском означает "собака". Если нет - то информативное, в противном случае Неинформативное
3 а) процедурный тип
б) декларативный тип
в) процедурный тип
г) Процедурный тип