Студопедия  
Главная страница | Контакты | Случайная страница

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

В двумерном массиве, состоящем из n целых чисел, найти сумму элементов в каждой строке. Размер произвольный.

Читайте также:
  1. II. Перечень дисциплин модуля «Челюстно-лицевой хирургии, оториноларингологии и офтальмологии» и количество часов по каждой дисциплине
  2. T6. А теперь я бы хотел(а), чтобы Вы оценили Ваше последнее посещение магазина … (МАГАЗИН ИЗ ВОПРОСА Q7) по каждой из перечисленных характеристик, используя шкалу на карточке.
  3. А) возобновление производства в увеличивающемся размере
  4. А) размер реализованной продукции, приходящейся на 1 руб. производственных фондов;
  5. Алгебраические формы представления целых знаковых двоичных чисел в компьютере и операции с этими числами
  6. Алгоритм вычисления количества элементов массива удовлетворяющих условию
  7. Ароматы линии ШАНС привнесут в жизнь каждой девушки искру романтики и поэзии.
  8. Ашрам Найтингейл. Лондон. Англия. 4.07.1982 г.
  9. Билет 25: Неметаллы,положение в периодической системе химических элементов Д.И.Менделеева,строение их атомов
  10. Билет №1 Покажите на фантоме как надо произвести наружные размеры таза , определите истинную коньюгату.

 

Program summastrok;

Var a: array[1..50,1..50] of integer;

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

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

For j:=1 to n do

begin

write(‘a[‘,i,’,’,j,’)=’); readln (a[i,j]);

end;

For i:=1 to m do

begin

S:=0;

For j:=1 to n do

S:=S+a[i,j];

Writeln(‘сумма элементов в ‘,i,’ строке равна ‘,S);

end;

End.

 

3. Найти наименьший элемент двумерного массива. Размер MXN. Элементы задаются на интервале [-30, 45].

Program minim;

Var a: array[1..50,1..50] of integer;

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

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin

a[i,j]:=int(rnd*76)-30; write(a[i,j],’ ‘);

end;

writeln;

end;

min:=a[1,1];

For i:=1 to m do

For j:=1 to n do

if a[i,j]< min then min:=a[i,j];

Writeln(‘наименьшее число ‘,min);

End.

 

В двумерном массиве, состоящем из целых чисел, найти наименьший элемент и номер строки, в которой он находится. Элементы вводятся с клавиатуры. Размер MXN.

 

Program minim;

Var a: array[1..50,1..50] of integer;

i, j, m, n, min, K: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

For j:=1 to n do

begin write(‘a[‘,i,’,’,j,’]=’); readln (a[i,j]); end;

min:=a[1,1]; K:=1;

For i:=1 to m do

For j:=1 to n do

If a[i,j]< min then

begin

min:=a[i,j]; K:=i;

end;

Writeln(‘наименьшее число ‘,min,’ находится в ‘, k , ‘ строке’);

End.

 

5. Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел. Размер MXN. Элементы задаются на интервале [-19, 30].

program sumstr;

Var a: array[1..50,1..50] of integer;

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

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin

a[i,j]:=int(rnd*50)-19; write(a[i,j],’ ‘);

end;

writeln;

end;

for i:=1 to m do

begin

sum:=0;

for j:=1 to n do sum:=sum+a[i,j];

writeln('сумма элементов в ',i,' строке: ',sum);

end;

end.

 

Подсчитать количество положительных элементов в каждой строке матрицы размером МхN, элементы которой вводятся с клавиатуры.

 

program kolpolvstr;

Var a: array[1..50,1..50] of integer;

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

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin write(‘a[‘,i,’,’,j,’]=’); readln (a[i,j]); end;

for i:=1 to m do

begin

kol:=0;

for j:=1 to n do if a[i,j]>0 then kol:=kol+1;

writeln('количество положительных элементов в ',i,' строке: ',kol);

end;

writeln;

end;

end.

 

7. Сформировать матрицу типа 1 0 0 0

0 1 0 0

0 0 1 0

0 0 0 1

program formir;

Var a: array[1..50,1..50] of integer;

i, j, m, n: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin

if i=j then a[i,j]:=1 else a[i,j]:=0;

write(a[i,j]);

end;

writeln;

End.


Дата добавления: 2014-12-19; просмотров: 89 | Нарушение авторских прав




lektsii.net - Лекции.Нет - 2014-2020 год. (0.022 сек.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав