Сформировать одномерный массив В, где B(i) равно сумме элементов, кратных пяти и расположенных в i строке матрицы i = 1,2, .... М.

@Всеволод666 · Регистрация: 29.05.2011

Author24 — интернет-сервис помощи студентам

Дана целочисленная матрица А размера M´N, где М, N - заданные натуральные числа. Сформировать одномерный массив В, где B(i) равно сумме элементов, кратных пяти и расположенных в i строке матрицы i = 1,2, .... М. Если таких элементов в i строке нет, то элементу B(I) присвоить номер строки.

и еще одна

Дана строка символов. Группу символов, разделенную с одной или обеих сторон одним или несколькими пробелами и не содержащую внутри себя пробелов, назовем словом.
Распечатать самое длинное слово, начинающееся на букву к. Если таких слов нет. то выдать соответствующее текстовое сообщение, а если такое слово есть, то предполагается, что оно единственное

Помогите пожалуйста!

@Mr.Y · 29.05.2011, 20:44

Pascal

Uses crt;
Const
 m = 10;
 n = 8;
Var
 a:array [1..m,1..n] of integer;
 i,j,sum:integer;
 b:array [1..m] of integer;
Begin
 clrscr;
 Randomize;
 For i:=1 to m do
  For j:=1 to n do
   a[i,j]:=random(200)+1;
 For i:=1 to m do
  Begin
   for j:=1 to n do
    write(a[i,j]:4);
   writeln;
  End;
 For i:=1 to m do
  Begin
   sum:=0;
   For j:=1 to n do
    If a[i,j] mod 5 = 0 then sum:=sum+a[i,j];
   If sum = 0 then b[i]:=i
              else b[i]:=sum;
  End;
 writeln;
 For i:=1 to m do
  write(b[i]:4);
 readln;
End.

@Всеволод666 0 / 0 / 0 Регистрация: 29.05.2011 Сообщений: 3
		1
	Сформировать одномерный массив В, где B(i) равно сумме элементов, кратных пяти и расположенных в i строке матрицы i = 1,2, .... М. 29.05.2011, 20:33. Показов 1794. Ответов 1 Метки нет (Все метки) Дана целочисленная матрица А размера M´N, где М, N - заданные натуральные числа. Сформировать одномерный массив В, где B(i) равно сумме элементов, кратных пяти и расположенных в i строке матрицы i = 1,2, .... М. Если таких элементов в i строке нет, то элементу B(I) присвоить номер строки. и еще одна Дана строка символов. Группу символов, разделенную с одной или обеих сторон одним или несколькими пробелами и не содержащую внутри себя пробелов, назовем словом. Распечатать самое длинное слово, начинающееся на букву к. Если таких слов нет. то выдать соответствующее текстовое сообщение, а если такое слово есть, то предполагается, что оно единственное Помогите пожалуйста! 0

	29.05.2011, 20:44

Сформировать одномерный массив В, где B(i) равно сумме элементов, кратных пяти и расположенных в i строке матрицы i = 1,2, .... М.

Решение