Александрович Алексеевна
?>

Спо информатике, в программе html: расскажите о своём любимом фильме или супергерое, используя механизмы html и css , желательно с картинкой ​

Информатика

Ответы

ЭдуардовнаКлючников1361
//pascal abc.net v3.0 var ma: array of array of integer; i,j,s,m: integer; begin randomize; readln(m); setlength(ma,m+1); for i: =1 to m do setlength(ma[i],m+1); writeln('matrix: '); for i: =1 to m do   begin;   writeln;     for j: =1 to m do     begin;       ma[i,j]: =random(-30,40);       write(ma[i,j]: 4);     end;   end; for i: =1 to m do   for j: =i+1 to m do   s+=ma[i,j]; writeln; writeln('result: ',s); end.
pavpe4198
Var a: array[1..10] of integer;   i,k,min: integer;   begin  k: =0;   for i: =1 to 10 do begin  read(a[i]);   if (a[i] mod 2=0) and (a[i]< 0) then  k: =k+1;   if a[i]> 0 then min: =a[i];   end;   for i: =1 to 10 do  if (a[i]< min) and (a[i]> 0) then min: =a[i];   writeln('количество четных отрицательных чисел ', k);   if min=0 then writeln('положительных элементов нету') else  writeln('минимальный положительный элемент массива ', min);   end. 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Спо информатике, в программе html: расскажите о своём любимом фильме или супергерое, используя механизмы html и css , желательно с картинкой ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

coffee2201
chuev4444
smirnovaL1286
d43irina
artemyanovich8
sergeev-alp5
shabunina17
Lapushkina
vasilevich-F
delfa-r6289
Andrei-Shchukin
Антонович937
vak1984
Skvik71
madina27821667