Программа.................................................
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
For i:= 1 to K do
Begin
Z[i]:=random(21)-10;
Write(Z[i],' ');
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
То же, но с вводом с клавы:
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
WriteLn('Введите элементы массива:');
For i:= 1 to K do
Begin
Read(Z[i]);
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
#include <stdio.h>
int main ()
{
int a, n, i, x;
scanf("%d", &a);
n=10;
i=0;
x=1;
while (i<n) {
if (x%a==0) {printf("%d", x); i++; x++;};
}
return 0;}
Заходишь во вкладку "Вставка"
Нажимаешь Фигуры Выбираешь прямоугольник с круглыми углами .
Делаешь эту фигуру на листе , дальше заходишь во вкладку "формат"
Выбираешь стиль фигуры (внутри должна быть белая) .
Заходишь во вкладку "Вставка" выбираешь фигуру "линия" и сам прямоугольник размечаешь под таблицу и да не забудь во вкладке "формат" сделать что-бы прямоугольник и линии были за текстом.
