Составить программу дан массив натуральных чисел , размерность -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.Б 2.А 3.В 4.А 5.Г 6.В

Объяснение: