Дан массив x1, x2, … x15. все отрицательные элементы массива заменить на 1, а положительные элементы массива заменить на 5. вывести на печать полученный массив.
Var x:array [1..15] of integer; i:integer; begin writeln('Введите массив'); for i:=1 to 15 do begin read(x[i]); if x[i]<0 then x[i]:=1 else x[i]:=5; end; for i:=1 to 15 do write(x[i],' '); end.
В задании не сказано, откуда берутся исходные данные, поэтому будем вводить их с клавиатуры. Сначала ведем общее количество данных (не факт, что данные за месяц снимались строго ежедневно), а затем сами данные. Это позволит заодно осуществить контроль ввода.
var n,s,t,i:integer; begin Write('Укажите количество данных: '); Read(n); Writeln('Теперь вводите данные'); s:=0; for i:=1 to n do begin Read(t); s:=s+t end; Writeln('Средняя температура за месяц составила ',s/n:0:1) end.
Пример решения
Укажите количество данных: 11 Теперь вводите данные 27 29 26 31 24 23 27 30 31 28 25 Средняя температура за месяц составила 27.4
x:array [1..15] of integer;
i:integer;
begin
writeln('Введите массив');
for i:=1 to 15 do begin
read(x[i]);
if x[i]<0 then
x[i]:=1
else
x[i]:=5;
end;
for i:=1 to 15 do
write(x[i],' ');
end.