Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[54.210.83.20] |
|
Сообщ.
#1
,
|
|
|
Помогите пожалуйста дописать программу ,чтобы она считала сумму четных элементов строк ,которые содержать хотя бы один нулевой элемент.Никак не могу придумать как это сделать .вот моя исходная программа.( при этом оставить перестановку столбцов и ввод с клавиатуры элементов матрицы ).
Program zadacha1; {caaaiea 1 aa?eaio 30} USES CRT; CONST a=4; b=4; VAR C:array[1..a,1..b] of integer; m,n,n1,n2:integer; t:integer; BEGIN Writeln('Введите элементы матрцы C:'); for m:=1 to a do for n:=1 to b do Readln(C[m,n]); ClrScr; Writeln('матрица C:'); for m:=1 to a do begin for n:=1 to b do Write(C[m,n]:8); Writeln; end; repeat writeln('введите номера столбцов для обмена '); readln(n1,n2); until(n1 in [1..b])and(n2 in [1..b])and(n1<>n2); for m:=1 to a do begin t:=c[m,n1]; c[m,n1]:=c[m,n2]; c[m,n2]:=t; end; writeln('Преобразованный массив:'); for m:=1 to a do begin for n:=1 to b do write(c[m,n]:4); writeln; end; readln; end. |
Сообщ.
#2
,
|
|
|
Обойти в цикле все строки
Обойти во внутреннем цикле элементы строки, проверяя, на равны ли они нулю. Если найден нулевой, остановить цикл, и обойти в цикле четные элементы, сложив их. Вроде все по логике задания... |
Сообщ.
#3
,
|
|
|
Нет, MBo. первое, что должен сделать топикстартер - правильно оформить код + добавить отступы, а не давать эту простыню несвязного текста!
|
Сообщ.
#4
,
|
|
|
Ещё актуально?
|