Заполнить массив из 22 элементов случайными целыми числами от 0 до 12 последнему элементу присвоить 11 вывести массив на экран в
Заполнить массив из 22 элементов случайными целыми числами от 0 до 12 последнему элементу присвоить 11 вывести массив на экран в 1 строку найти и вывести элементы их позиции которые больше 10 найти сумму элементтв массива кратных 4
<span>var
a: array [1..100] of integer;
i, n , max : integer;
begin
writeln('rozmer');
readln(n);
randomize ;
if (( n>=1) and (n<=35)) then
for i:=1 to n do begin
a[i]:=random(90)-45 ;
write(a[i]:3);
end;
writeln;
max:=a[1] ;
for i:=2 to 100 do begin
if a[i]>max then max:=a[i] ;
end;
writeln(max);
end<span>.</span></span>
Таблица типа «объект-свойство» — это табличная модель, содержащая информацию об объекте с указанием его характеристик (свойств) . Обычно объект указывается в строке, а его характеристики в столбцах.
Таблица типа «объект-объект» — это табличная модель, отражающая зависимость между различными объектами.
Const nn=50; { ограничение на длину строки/столбца } var i,j,m,n,k,s:integer; a:array[1..nn,1..nn] of integer; begin Randomize; Write('Количество строк в массиве '); Read(m); Write('Количество столбцов в массиве '); Read(n); s:=0; k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(101)-50; Write(a[i,j]:4); if a[i,j]>0 then begin s:=s+a[i,j]; k:=k+1 end end; Writeln end; Writeln('Ср. арифметическое положительных ',s/k) end.