<em>uses crt;</em>
<em>var a, b, c, i, n:integer; </em>
<em>s :array [1..10000] of integer;</em>
<em>begin</em>
<em> clrscr;</em>
<em> writeln ('Введите размер массива, который надо сгенерировать');</em>
<em> read (n);</em>
<em> for i:=1 to n do </em>
<em> s[i]:=random(50);</em>
<em> for i:=1 to n do </em>
<em> writeln (i, ' элемент равен ', s[i]);</em>
<em> writeln ('Введите число, которое нужно найти');</em>
<em> read (a);</em>
<em> for i:=1 to n do</em>
<em> if s[i]=a then inc(b);</em>
<em> if b=0 then writeln('В массиве нет числа ',a) else writeln('Число ', a,' в массиве встречается ', b,' раз');</em>
<span><em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив [10x10] ***');
var q:=MatrRandom(10,10,-30,30);
q.Println(4); Writeln(4*q.ColCount*'-');
// #1
Writeln('S=',q.Rows.SelectMany(x->x).Where(x->(x>1) and (x<18)).Sum);
// #2, #3
var s:=q.ElementsWithIndexes;
// #2
Writeln('Ненулевые элементы');
s.Where(x->x[2]<>0).Foreach(x->Write('[',x[0]+1,',',x[1]+1,'] '));
Writeln;
// #3
Write('Первый максимальный отрицательный элемент: ');
var m:=s.MaxBy(x->x[2]);
Writeln('q[',m[0]+1,',',m[1]+1,']=',m[2])
end.
<u>Пример</u>
*** Исходный массив [10x10] ***
29 29 4 -12 10 -25 0 -27 17 -17
-27 5 -11 -21 26 1 -29 -10 -12 5
18 -18 0 -11 -16 0 10 -1 -10 23
-5 -20 -14 13 14 -27 0 -26 4 -11
-20 13 0 -24 4 -4 -3 12 -13 -4
-24 27 -21 -8 -13 17 -2 -15 -26 -21
-5 -29 13 25 18 24 -12 7 -4 23
-30 27 17 29 -6 -25 12 -6 15 18
-27 28 -19 25 17 -1 -30 25 -5 28
5 -15 -30 -6 25 -21 30 6 -11 10
----------------------------------------
S=230
Ненулевые элементы
[1,1] [1,2] [1,3] [1,4] [1,5] [1,6] [1,8] [1,9] [1,10] [2,1] [2,2] [2,3] [2,4] [2,5] [2,6] [2,7] [2,8] [2,9] [2,10] [3,1] [3,2] [3,4] [3,5] [3,7] [3,8] [3,9] [3,10] [4,1] [4,2] [4,3] [4,4] [4,5] [4,6] [4,8] [4,9] [4,10] [5,1] [5,2] [5,4] [5,5] [5,6] [5,7] [5,8] [5,9] [5,10] [6,1] [6,2] [6,3] [6,4] [6,5] [6,6] [6,7] [6,8] [6,9] [6,10] [7,1] [7,2] [7,3] [7,4] [7,5] [7,6] [7,7] [7,8] [7,9] [7,10] [8,1] [8,2] [8,3] [8,4] [8,5] [8,6] [8,7] [8,8] [8,9] [8,10] [9,1] [9,2] [9,3] [9,4] [9,5] [9,6] [9,7] [9,8] [9,9] [9,10] [10,1] [10,2] [10,3] [10,4] [10,5] [10,6] [10,7] [10,8] [10,9] [10,10]
Первый максимальный отрицательный элемент: q[10,7]=30
var
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)');
readln(s);
case s of
1: begin
writeln('Введите 10 элементов массива: ');
for i:= 1 to 10 do readln(X[i]);
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
2: begin
writeln('Массив: ');
for i:= 1 to 10 do
begin
X[i]:=random(101);
write(X[i]:4);
end;
writeln;
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
end;
<span>end. </span>