e3913269
?>

Расположи по порядку оформление реферата (укажите цыфрами в первом столбике) ​

Информатика

Ответы

Максим

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.


Порядок выполнения работы: Запустите программу Turbo Pascal. Выполните задания: 1. Ввести одномерный

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Расположи по порядку оформление реферата (укажите цыфрами в первом столбике) ​
Ваше имя (никнейм)*
Email*
Комментарий*