Var a: array[1..100] of integer; i, j, c: integer; begin Writeln('Массив '); for i := 1 to 100 do begin a[i] := random(201) - 100; write(a[i], ' '); end; Writeln; write('Введите число (от -100 до 100) '); Readln(j); for i := 1 to 100 do if a[i] = j then begin c := c + 1; write(i, ' '); end; Writeln; if c>1 then write('В массиве число введённое вами есть в массиве и даже несколько (', c, '). Их индексы представлены выше') else if c = 1 then write('Число, которое вы ввели есть в массиве. Его индекс представлен выше') else write('Такого числа в массиве нет'); end.
//Блок-схема во вложении //Pascal ABC.NET v3.1 сборка 1172
Var ma:array of array of integer; i,j,r,n,m,s:integer; begin randomize; readln(n); readln(m); setlength(ma,n); for i:=0 to n-1 do setlength(ma[i],m); writeln('Matrix:'); for i:=0 to n-1 do begin writeln; for j:=0 to m-1 do begin ma[i,j]:=random(50); write(ma[i,j]:4); end; end; writeln; writeln('Res:'); for i:=0 to n-1 do begin for j:=0 to m-1 do s:=s+ma[i,j]; writeln(i+1,' ',s); s:=0; end; end.
