Попытка присвоить переменной integer выражение real. Как исправить ошибку?

@Victor Tsoy · Регистрация: 10.05.2019

Author24 — интернет-сервис помощи студентам

Здравствуйте, такой вопрос, как исправить данную ошибку? Задание такое: "Заполните все элементы, которые больше 5, значением среднего арифметического всех элементов массива".

Pascal

var A: array[1..12] of integer;
    i: integer;
    S: real;
begin
writeln ('Вывод элементов массива A[12], значение в промежутке [-10;10]');
writeln ('Вывод элементов массива A[12] в строку');
for i:=1 to 12 do
begin
A[i]:=random(20)-10;
write(A[i]:4)
end;
S:=0;
for i:=1 to 12 do
begin
S:=S+A[i];
end;
S:=S/12;
for i:=1 to 12 do
begin
if A[i]>5 then A[i]:=S;
end;
writeln;
writeln ('     Замена всех элементов массива больше 5 ');
writeln ('на среднее арифметическое всех элементов массива');
for i:=1 to 12 do
begin
write(A[i]:4);
end;
end.

@AndrewLis · 10.05.2019, 18:27

Pascal

var A: array[1..12] of integer;
    i: integer;
    S: real;
begin
writeln ('Вывод элементов массива A[12], значение в промежутке [-10;10]');
writeln ('Вывод элементов массива A[12] в строку');
for i:=1 to 12 do
begin
A[i]:=random(20)-10;
write(A[i]:4)
end;
S:=0;
for i:=1 to 12 do
begin
S:=S+A[i];
end;
S:=S/12;
for i:=1 to 12 do
begin
if A[i]>5 then A[i]:=Trunc(S);
end;
writeln;
writeln ('     Замена всех элементов массива больше 5 ');
writeln ('на среднее арифметическое всех элементов массива');
for i:=1 to 12 do
begin
write(A[i]:4);
end;
end.

@ValentinNemo · 12.05.2019, 05:07

Лучше всего изменить тип самого массива с целых чисел на вещественные.
Тогда среднее арифметическое войдет как элемент массива без отсечений.

Pascal

program Project1;
var A: array[1..12] of real;
    i: integer;
    SrAreth: real;
    Sum: real;
begin
randomize;
writeln ('Вывод элементов массива A[12], заполненных случайными значениями ');
writeln ('в промежутке [-10;10]');
for i:=1 to 12 do
  begin
    A[i]:=random(21)-10;
    write(A[i]:6:2)
  end;
writeln;
Sum:=0;
for i:=1 to 12 do
  Sum:=Sum + A[i];
SrAreth:= Sum/12;
writeln ('Среднее арифметическое значений элементов всего массива: ',SrAreth:0:2);
for i:=1 to 12 do
 if A[i] > 5 then
    A[i]:= SrAreth;
writeln ('Замена всех элементов массива со значением больше 5 ');
writeln ('на среднее арифметическое всех элементов массива');
for i:=1 to 12 do
 write(A[i]:6:2);
writeln;
Readln;
end.

	12.05.2019, 05:07