Var a:array[1..8] of integer;i:integer;beginrandomize;for i:=1 to 8 do begin a[i]:=random(20-10) + 10; write(a[i],' '); end; writeln;for i:=1 to 8 do begin if (a[i] < 15 ) then a[i]:=2*a[i]; write(a[i],' '); end;
<span>end.</span>
31 в 2сс = 11111 , 5 бит на символ
длинна слова информатика = 11
ответ: 11 * 5 = 55
можно сэкономить место на диске, т.е заархивировать это значить сжать данные в нескольео раз
var a: array [1..10] of integer;
i: integer; ss: real; cc: byte;
begin
ss:=0;
cc:=0;
for i:=1 to 10 do begin
write('A[',i,'] = ');
readln(a[i]);
if a[i]>5 then begin
ss:=ss+a[i];
inc(cc);
end;
end;
writeln;
writeln('Среднее арифметическое = ',ss/cc);
end.
Объяснение:
var s,n,d,e:integer;
m: string;
begin
writeln('Курс доллара?');
readln(d);
writeln('Курс евро?');
readln(e);
writeln ('Сколько рублей у посетителя?');
readln(n);
writeln ('доллар или евро?');
readln(m);
if m='доллар' then s:=n div d;
if m='евро' then s:=n div e
else writeln('Такой валюты нет');
writeln(s);
end.