Var
y:array[1..8]of real;
k,n:integer;
begin
writeln('Исходный массив:');
for k:=1 to 8 do
begin
y[k]:=ln(k)-3*k;
if y[k]<0 then n:=n+1;
write(y[k],' ');
end;
writeln;
writeln('Количество отрицательных: ',n);
writeln('Измененный массив: ');
for k:=1 to 8 do
begin
if y[k]<0 then y[k]:=abs(y[k]);
write(y[k],' ');
end;
end.
В первом случае где нажата клавиша Entrer ответ:
Знание-
сила.
во втором случае где нажата клавиша Delete будит:
Знание -сила. то есть. мы просто сотрём символ после тире!
в третьем случаем где нажата клавиша BlackSpace просто текст увеличиться
то есть : Знание -
сила.
в четвёртом случаем где нажата клавиша Enter .
Знание -
сила .
Если я помогла то поставьте лайк и оцените)))
удачи в школе
Program Task;
Const a = 5;
b = 10;
Var i, c, d: Integer;
Begin
If a > b Then
WriteLn('Ошибка')
Else
Begin
For i := a To b Do
If i > 0 Then
Begin
c := c + i;
d := d + 1;
End;
If d > 0 Then
WriteLn('Результат: ', (c / d):5:2)
Else
WriteLn('Таких чисел нет');
End;
<span>End.</span>
1) Name: aray[1..10] of integer;
3)scr(1) scr(2) ...
4) Program Name;
uses crt;
var a,b,c:integer;
BEGIN
b:=0;
for a:=1 to 100 do
begin
b:=b+a;
end;
write ('Vash resultat =', b);
readln;
<span>END.
</span>
По формуле а,(b)=a*(b/9)
75,(8)=75*(8/9)
39,(16)=39*(16/99)(а это а,(бс)=а*(бс/99)
Находим сумму:683/9+3877/99=11390/99=115(05)
Проверила несколько раз