Вводятся размеры двумерного массива и его элементы. Составить новый массив из номеров максимальных элементов исходного массива в столбцах. Результат вывести.

Вводятся размеры двумерного массива и его элементы. Составить новый массив из номеров максимальных элементов исходного массива в столбцах. Результат вывести.

program nomer_max;

uses crt;

const nmax=20;

var a:array[1..nmax,1..nmax] of integer;

b:array[1..nmax] of integer;

c:array[1..nmax] of integer;

imin,n,i,j,m:integer;

begin

repeat

write('Введите число строк массива: ');

readln(n);

until n in [1..nmax];

repeat

write('Введите число столбцов массива: ');

readln(m);

until m in [1..nmax];

writeln;

for i:=1 to n do

begin

for j:=1 to m do

begin

a[i,j]:=random(100)-50;

write(a[i,j]:5);

end;

writeln;

end;

for j:=1 to m do

begin

imin:=1;

for i:=1 to n do

if (a[i,j]>a[imin,j])

then imin:=i;

b[j]:=a[imin,j];

c[j]:=imin;

end;

writeln;

writeln('Максимальные элементы в столбцах:');

for i:=1 to m do write(b[i]:5);

writeln;

writeln('Номера максимальных элементов в столбцах массива:');

for i:=1 to m do

write(c[i]:5);

readkey;

end. 10.12.11

Вводятся размер одномерного массива и его элементы. Составить новый массив из элементов исходного массива, у которых сумма цифр больше 7.

program cifra_7;

uses crt;

var i,k,n,x,summ: integer;

a: array[1..1000] of integer;

b: array[1..1000] of integer;

begin

clrscr;

n:=1;

writeln('Введите количество элементов массива:');

readln(i);

writeln('Введите элементы массива:');

for k:=1 to i do readln(a[k]);

for k:=1 to i do

begin

x:=a[k];

summ:=0;

while (x<>0) do

begin

summ:=summ+(x mod 10);

x:=x div 10;

end;

if summ>7 then

begin

b[n]:=a[k];

inc(n);

end;

end;

writeln('Элементы, сумма цифр которых > 7:');

for k:=1 to n-1 do

begin

write(b[k]);

write(', ');

end;

end.

Задача: Вводятся размеры двумерного массива и его элементы. Составить новый массив из номеров минимальных элементов исходного массива в столбцах. Результат вывести.

Program A;

var

massiv: array [1..10,1..10] of integer;

min_in_stolb: array [1..10] of byte;

min: array [1..2] of integer;

strok, stolb, n, m: byte;

begin

write('Введите число строк массива: ');

readln(strok);

write('Введите число элементов в строке: ');

readln(stolb);

writeln;

writeln('Ввод массива.');

for m:=1 to strok do

begin

writeln('Введите ',m,'-ю строку');

for n:=1 to stolb do

begin

write(n,': ');

read(massiv[m,n]);

end;

writeln;

end;

for n:=1 to stolb do

begin

min[1]:=massiv[1,n];

min[2]:=1;

for m:=1 to strok do

begin

if massiv[m,n]<=min[1] then

begin

min[2]:=m;

min[1]:=massiv[m,n];

end;

min_in_stolb[n]:=min[2];

end;

end;

writeln('Массив из номеров минимальных элементов исходного массива в столбцах:');

for n:=1 to stolb do write(min_in_stolb[n],' ');

writeln;

writeln('Для выхода нажмите ENTER');

readln;

readln;

end.

 

 

индив. 4

6. Вводятся размеры двумерного массива и его элементы. Составить новый массив из количеств нулевых элементов исходного массива в столбцах. Результат вывести.
program Project1;
type tmas=array [1..3300,1..3300] of Integer;
var s:tmas;
k:array [1..3300] of integer;
i,j,n,m,l,kol:Integer;
Begin
read(n,m);
For i:=1 to n do
For j:=1 to m do
Read(s[i,j]);
l:=1;
For i:=1 to n do
begin
kol:=0;
For j:=1 to m do
If s[j,i]=0 then kol:=kol+1;
k[l]:=kol;
l:=l+1;
end;
For i:=1 to n do write(k[i],' ');
Readln(i);
end.

Вводятся размер одномерного массива и его элементы. Составить новый массив из элементов исходного массива, у которых минимальная цифра равна 3.

 

Задача

Вводятся размер одномерного массива и его элементы. Составить новый массив из чисел, которые являются числами Фибоначчи.

Var

a: array [1..100, 1..100] of integer;

b: array [1..100] of integer;

x, y, i, j, k: integer;

 

Begin

Ввод-вывод матрицы (вручную)

write('Введите количество элементов по вертикали:');

read(x);

write('Введите количество элементов по горизонтали:');

read(y);

for i:= 1 to x do

Begin

for j:= 1 to y do

Begin

write('a[', i, ',', j, ']=');

read(a[i, j]);

end;

end;

for i:= 1 to x do

Begin

for j:= 1 to y do

write(a[i, j]:6);

writeln;

end;

 

{Ввод-выводматрицы(random)

write('Введите количество элементов по вертикали:');

read(x);

write('Введите количество элементов по горизонтали:');

read(y);

fori:= 1 to x do

begin

for j:= 1 to y do

begin

a[i, j]:= random(10) - 3;

end;

end;

fori:= 1 to x do

begin

for j:= 1 to y do

write(a[i, j]:6);

writeln;

end;}

 

Присваиваем 0 строкам, содержащим только положительные элементы

for i:= 1 to x do

Begin

b[i]:= 1;

k:= 0;

for j:= 1 to y do

Begin

if a[i, j] <0 then

k:= k + 1;

end;

if k = 0 then begin

b[i]:= 0;

end;

end;

 

write('Искомыймассив:');

 

Выводиммассив

for i:= 1 to x do

Begin

for j:= 1 to y do

Begin

if a[i, j] <0 then

b[i]:= b[i] * a[i, j];

end;

write(b[i]:4);

end;

writeln;

readln;

end.

 

 

ЛАБА 2…

Вводятся размеры двумерного массива и его элементы. Составить новый массив из номеров максимальных элементов исходного массива в столбцах. Результат вывести.

program nomer_max;

uses crt;

const nmax=20;

var a:array[1..nmax,1..nmax] of integer;

b:array[1..nmax] of integer;

c:array[1..nmax] of integer;

imin,n,i,j,m:integer;

begin

repeat

write('Введите число строк массива: ');

readln(n);

until n in [1..nmax];

repeat

write('Введите число столбцов массива: ');

readln(m);

until m in [1..nmax];

writeln;

for i:=1 to n do

begin

for j:=1 to m do

begin

a[i,j]:=random(100)-50;

write(a[i,j]:5);

end;

writeln;

end;

for j:=1 to m do

begin

imin:=1;

for i:=1 to n do

if (a[i,j]>a[imin,j])

then imin:=i;

b[j]:=a[imin,j];

c[j]:=imin;

end;

writeln;

writeln('Максимальные элементы в столбцах:');

for i:=1 to m do write(b[i]:5);

writeln;

writeln('Номера максимальных элементов в столбцах массива:');

for i:=1 to m do

write(c[i]:5);

readkey;

end. 10.12.11