Я знаю только добавления : вот порядок действий: 1) нажать правой кнопкой мышки на таблицу. 2) откроется меню.нажимаем "добавить" и выбираем справа-слева сверху-снизу столб или строку. Ну или на худой случай стереть таблицу и заново сделать с ПРАВИЛЬНЫМ кол-вом столбцов. Надеюсь пригодится)
randomize; for i:=1 to 10 do begin a[i]:= random(200) -100; write(a[i]:5); end;
writeln;
for i:=1 to 10 do if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i; write(a[i]:5);
end.
2) var a:array[1..1000] of real; s1,s2:real; i,n:integer; begin write('Введите кол-во элементов: '); readln(n); writeln('Введите элементы массивы: '); for i:=1 to n do read(a[i]);
s1:=0; s2:=0; for i:=1 to n do if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2); writeln('Сумма элементов с нечетными номерами: ',s1); end.
randomize; for i:=1 to 10 do begin a[i]:= random(200) -100; write(a[i]:5); end;
writeln;
for i:=1 to 10 do if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i; write(a[i]:5);
end.
2) var a:array[1..1000] of real; s1,s2:real; i,n:integer; begin write('Введите кол-во элементов: '); readln(n); writeln('Введите элементы массивы: '); for i:=1 to n do read(a[i]);
s1:=0; s2:=0; for i:=1 to n do if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2); writeln('Сумма элементов с нечетными номерами: ',s1); end.
вот порядок действий:
1) нажать правой кнопкой мышки на таблицу.
2) откроется меню.нажимаем "добавить" и выбираем справа-слева сверху-снизу столб или строку.
Ну или на худой случай стереть таблицу и заново сделать с ПРАВИЛЬНЫМ кол-вом столбцов.
Надеюсь пригодится)