Вопрос по информатике:
Пожалуйста, на программе Паскаль срочно надо
Ввести двумерный массив A N×M , вывести его. Найти сумму
положительных элементов массива, исключая при этом те элементы, которые
кратны трём. Полученной суммой заменить отрицательные элементы
последнего столбца.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.06.2016 06:19
- Информатика
- remove_red_eye 10753
- thumb_up 32
Ответы и объяснения 1
procedure printMas(a: array of array of integer; n, m: integer; mess:string);
begin
writeln (mess);
for var i:=0 to n-1 do a[i].Println;
writeln ();
end;
begin
var a: array of array of integer;
var n:=readinteger('n =');
var m:=readinteger('m =');
var s:='';
var sum:=0;
setLength (a, n);
for var i:=0 to n-1 do begin
s:='Введите строку массива ' + (i +1)+ ': ';
a[i]:=readarrinteger (s, m);
for var k:=0 to m-1 do if ((a[i][k]/3)(a[i][k] div 3)) and (a[i][k]>0) then
sum+=a[i][k];
end;
printMas(a, n, m, 'Введенный массив:');
writeln ('Сумма неотрицательных элементов, не кратных трем: ', sum);
for var i:=0 to n-1 do if a[i][m-1]<0 then a[i][m-1]:=sum;
printMas(a, n, m, 'Новый массив:');
end.
- 08.06.2016 20:03
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.