на Pascal
program noname;
uses crt;
const
t=10;
var
a:array[1..t] of byte;
i,k:byte;
x,n:integer;
r:real;
begin
clrscr;
randomize;
x:=1; k:=0; n:=0;
for i:=1 to t do begin
a[i]:=random(20-1+1)+1;
if (a[i] mod 2=0) then x:=x*a[i]
else begin n:=n+a[i]; k:=k+1; end;
writeln ('a[',i,']=',a[i]);
end;
r:=n/k;
writeln ('произведение элементов с четным значением=', x);
writeln('ср.арифм. элементов с нечетным значением=',r);
end.
Ответ:1Перейдите во вкладку «Ссылки».
2Кликните по клавише «Автособираемое оглавление».
3 И выберите из выпадающего списка любой из вариантов (они отличаются лишь форматом ссылок).
Думаю <em>ты поняла что к чему </em>
Все сложна я тебе так скажу думай сам тут если додуматься не так сложна
Program ddg2;
var
s: String[3];
begin
repeat
WriteLn('Хочу домой');
ReadLn(s);
until s = 'иди';
end.
При использовании палитры из 4 цветов для хранения одной точки изображения требуется log(2)4 = 2 бита.
Объем видеопамяти:
640*350*2 бит = 448000 бит = 448000/8 байт = 56000 байт