Во-первых, не на программе паскаль, а на языке. Это язык программирования.
begin
var a:array [1..5,1..3] of integer;var i:integer; var j:integer;var sum:integer;var count:integer;count:=0; sum:=0;for i:=1 to 5 do for j:=1 to 3 do a[i,j]:=random(2*20+1); for i:=1 to 5 dobegin for j:=1 to 3 do write( a[i,j]+' '); writeln;end;
for i:=1 to 5 do for j:=1 to 3 do if(((i+j) mod 2) = 0) then begin count:=count+1; sum:=sum+a[i,j]; end;writeln('Среднее арифметическое: '+ sum/count);end.
Массив заполняется рандомно
Ответ:
разрешено всё что не запрещено?
или запрещено всё что не разрешено?
запрещены информации об изготовлении или получении наркотиков, порн0графия, способы совершения сYицида и призывов к его совершению, призывы к разжиганию национальной розни, к военным действиям, информация предлагающая купить фальшивые документы, оружие, информация об изготовлении ядов, бомб и тому подобное, экстремизм, оскорбление чувств верующих.
Держи ответ тебе ) надеюсь все понятно ) если что спрашивай )
Пограммирование
енавориммаргоп
пграммироване
еавориммаргп
праммировае
евориммарп
паммирове
еориммап
пммирое
ериммп
пмире
еимп
пие
еп
п
Ответ: П
1 дерево вершина + ветка + ствол
2 дерево вершина + две ветки
3 дерево ветка + ствол