Помогите написать проги 1. замените все элементы массива целых чисел С(n) на противоположные по знаку 2. найти произведение элементов массива целых чисел А(n), меньших 3 3. в линейный массив вещественных чисел на К-тое место вс...
Помогите написать проги
1. замените все элементы массива целых чисел С(n) на противоположные по знаку
2. найти произведение элементов массива целых чисел А(n), меньших 3
3. в линейный массив вещественных чисел на К-тое место вставить элемент, равный среднему арифметическому элементов массива
Гость
Ответ(ы) на вопрос:
Гость1.var a:array[1..100] of integer;
n,s,i:integer;
begin
write('Количество элементов=');
readln(n);
for i:=1 to n do begin
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]>0 then a[i]:=-a[i]
else a[i]:=abs(a[i]);
end;
for i:=1 to n do begin
write(a[i]:3);
end;
end.
Не нашли ответ?
Похожие вопросы