1) <span>if a > b then begin a:= b ; end else b:=a;
Вот правильный вариант еnd; был лишний так как еще одного begin не было
2)
Var s:integer;k:real;
begin
s:=255;if s mod 2=1 then begin s:= s-1 ;k:= s/2 end
else k:=s ;writeln(k)
end.
Тут у вас ; с запятой были потеряны после исправления ответ 127</span>
Program a_86betiri;
uses crt;
const n=20;
var
a:array[1..n] of real;
sum, mt: real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
mt:=1;
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
sum:=sum+a[i];
end;
writeln('Элементы массива:');
for i:=1 to n do
begin
if a[i]<(sum/n) then
mt:=mt*a[i];
write (a[i]:7:2);
end;
writeln();
writeln('Произведение элементов, меньших, чем среднее арифметическое: ',mt);
end.
Ответ:
Почистите диск от лишних файлов (Либо увы переустанови игру в другой раздел диска, а лучше вообще на другой диск)
Объяснение:
Попробуй для начала перезапустить стим, и запустить игру, если не помогло попробуй решение из ответа
C2 = $A$1 + B2 = 26 + 53 = 79 ;
C3 = $A$1 + B3 = 26 + 21 = 47.
<span>Одновременно для всех слайдов можно изменять дизайн: шрифт, фон, цвета, визуальные эффекты при показе, масштаб и др., для чего? Для удобства...</span>