Народ написать программы на vba. 1. определить строки массива a 5×3, содержащих только положительные элементы. создать массив b эквивалентный a, лишние элементы заменить на нули. 2. три точки заданы своими координатами x(x1, x2), y(y1, y2) и z(z1, z2). найти координаты точки, для которой угол между осью абсцисс и лучом, соединяющим начало координат с точкой, минимальный. вычисление угла оформить в виде процедуры.
1.
program qq;
const n = 10;
var a: array[1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(2001)+1000;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 3 = 0 then k:=k+1;
writeln('Количество элемениов кратных 3 - ', k);
readln;
end.
Пример:
2296 2042 2463 2049 1081 2156 2977 1633 1054 1425
Количество элемениов кратных 3 - 3
2. Определяется количество чисел, которые при делении на 10 дают остаток 8.
program qq;
const n = 10;
var a: array[1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(2001)+1000;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 10 = 8 then k:=k+1;
writeln('k = ', k);
readln;
end.
Пример:
1887 1878 2568 1936 2508 2788 2050 1569 2906 1782
k = 4
Поэта по праву считают основоположником современного русского литературного языка, и это заслуженно. Стихи Пушкина, что 200 лет назад, что сейчас, понятны абсолютно всем и поражают своей красотой. Именно поэтому еще при жизни Александра Пушкина начали называть гением, что стало причиной своего рода культа вокруг его имени. Благодаря известным стихотворениям многие называли его поэтом-художником, другие – великим народным писателем.
Если вы относитесь к любителям произведений Александра Пушкина, или хотите снова почитать поэмы и стихи великого классика, то можете ознакомиться со списком его работ ниже.
Объяснение: