Составить программу дан массив натуральных чисел , размерность -12 ! ) заполнение массива производить с клавиатуры 2) вывести на печать только элементы кратные 2 3)найти сумму первых пяти элементов составить программу дан массив целых чисел , размерность -12 1) заполнение массива производить случайными числами из диапозона [-10; 35] 2)вывести на печать только положительные элементы 3)найти количество отрицательных элементов составить программу известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . определить количество ткани ( метров) произведенных цехом за месяц .

#1

 

var a: array[1..12] of integer;

i,s: integer;

begin

s: =0;

for i: =1 to 12 do

read(a[i]);

for i: =1 to 12 do

if a[i] mod 2 = 0 then write(a[i],' ');

for i: =1 to 5 do

s: =s+a[i];

writeln(s);

end.

 

#2.

var a: array[1..12] of integer;

i,s: integer;

begin

s: =0;

for i: =1 to 12 do begin

randomize;

a[i]: =random(46)-10 {функция рандом будет вызывать значения от 0 до 45, и еще -10 получится от -10 до 35}

end;

for i: =1 to 12 do begin

if a[i]> 0 then write(a[i],' ');

if a[i]< 0 then s: =s+1;

end;

writeln(s);

end.

стоит учесть что он не будет учитывать 0. например, он может выдать вам 5 положительных(напишет) и количество отрицательных - 2, и это означает что остальные 5 в массиве нули.

 

#3

 

var a: integer;

begin

read(a);

write(a*30);

end.

 

 

1 программаuses crt; var a: array [0 .. 12] of integer; sum, i: integer; beginsum: =0; for i: =1 to 12 dobegin write('write a[ ',i,' ] = '); readln(a[i]); end; for i: =1 to 12 dobegin if a[i] mod 2=0 then writeln(a[i]); end; for i: =1 to 5 dobegin sum: =a[i]+sum; end; write('suma = '); writeln(sum); readln; end.

2 программаuses crt; var a: array [0 .. 12] of integer; sum, i: integer; beginsum: =0; for i: =1 to 12 dobegin a[i]: = random(46)-10; // random(max-min+1)+min; end; for i: =1 to 12 dobegin if (a[i]> 0) then writeln(a[i]); end; for i: =1 to 12 dobegin if a[i]< 0 then inc(sum); end; write('otric elementov = '); writeln(sum); readln; end.

ткань

uses crt; var days,m: integer;

begindays: = 30; //дней в месяцеm: =135; //метров сделали за деньwriteln('за месяц = ',days*m, ' метров '); readln; end.

В бутылке, стакане, кувшине и банке находится молоко, лимонад, квас и вода. Известно что вода и молоко не в бутылке, а сосуд с лимонадом находится между кувшином и сосудом с квасом, в банке - не лимонад и не вода. Стакан находится около банки и сосуда с молоком. Как распределены эти жидкости по сосудам?

Решение

Бутылка - НЕ вода, НЕ молоко (т.к. вода и молоко не в бутылке

Стакан - НЕ молоко (т.к. Стакан находится около сосуда с молоком)

Кувшин -НЕ лимонад, НЕ квас (т.к. а сосуд с лимонадом находится между кувшином и сосудом с квасом)

Банка - НЕ лимонад, НЕ вода, НЕ молоко (т.к. в банке - не лимонад и не вода., ...около банки и сосуда с молоком), остается, что в банке - квас

т.к. в бутылке и стакане НЕ молоко, значит молоко в кувшине

т.к. в бутылке НЕ вода, значит вода в стакане

значит остается, что в бутылке - лимонад

в банке - квас

молоко в кувшине

вода в стакане

в бутылке - лимонад

1.Adobe Illustrator.

Adobe Fireworks.

Adobe FreeHand.

Affinity Designer.

ConceptDraw PRO.

CorelDRAW.

DrawPlus.

Figma.

2.Каждый элемент векторной графики — контур — представляет собой независимый объект, который можно перемещать, масштабировать, изменять до бесконечности. Векторную графику часто называют также объектно-ориентированной графикой.

Векторная графика получила широкое распространение из-за своих многочисленных достоинств.

3.В векторной графике не используется решетка, наполняемая пикселями. Картинка основана на математическом описании примитивов – элементарных геометрических объектов: линий, точек, окружностей, многоугольников и кривых. То есть объекты воспроизводятся с математических формул.

4.Бесплатная векторная графика Эффективность Использования Энергии

Похожие изображения:

Экология

Экономия Энергии

Энергия

Класс Энергопотребления

Дом

Окружающая Обстановка