Question

Порядок выполнения работы:
Запустите программу Turbo Pascal.
Выполните задания:
1. Ввести одномерный массив на 10 элементов, состоящий из
положительных и отрицательных чисел.
2. Заменить отрицательные элементы на противоположные по знаку.
3. Вывести полученный массив на экран.
4. Удалите из массива третий элемент.
5. Вывести полученный массив на экран.
6. Найдите сумму всех элементов массива.

Зачетное задание
Определить сколько раз встречается самое малое число в массиве А(1: 30)?​

Answer 1

program mas_kol_otr_kol_p;

const

n=10;

var

i,s:integer;

a:array[1..n] of integer;

begin

randomize;

writeln('Введите массив 》');

for i:=1 to n do

begin

a[i]:=random(61)-30;

write(a[i]:3,' ');

end;

writeln;

writeln('Меняем отрицательные на противоположные... 》');

for i:=1 to n do

begin

if(a[i]<0) then

a[i]:=abs(a[i]);

write(a[i]:3,' ');

end;

writeln;

writeln('Удаляем третий элемент... 》');

for i:=1 to n-1 do

begin

if(i>2) then

a[i]:=a[i+1];

write(a[i]:3,' ');

end;

writeln;

writeln('Считаем сумму... 》');

s:=0;

for i:=1 to n-1 do

s:=s+a[i];

write(s);

end.