Вопрос по информатике:
Дан массив Z[1...4,1...3] с целыми элементами. Создать программу с процедурой которая вычислит количество отрицательных чисел и сумму нечетных элементов массива
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.11.2016 00:48
- Информатика
- remove_red_eye 6081
- thumb_up 8
Ответы и объяснения 2
// Внимание! Если программа не работает, обновите версию!
procedure Foo(a:array[,] of integer; var kn:integer; var so:real);
begin
var s:=a.ElementsByRow; // последовательность не хранится
kn:=s.Where(t->t<0).Count;
so:=s.Where(t->t.IsOdd).Sum
end;
begin
var z:=MatrRandomInteger(4,3,-50,50); z.Println(4);
var k:integer;
var s:real;
Foo(z,k,s);
Writeln('Количество отрицательных: ',k);
Writeln('Сумма нечетных по значению: ',s)
end.
Пример
-40 15 -10
-13 37 -13
32 -39 46
-35 0 -43
Количество отрицательных: 7
Сумма нечетных по значению: -91
Замечание: Во избежании разнотолков указывайте, что понимать под нечетным элементом: нечетный по значению, с нечетным индексом (тогда еще с какого значения начинаются индексы) или нечетный по порядку.
- 21.11.2016 23:46
- thumb_up 32
const NMAX = 4; MMAX = 3;
type Matrix = array[1..NMAX,1..MMAX] of integer;
procedure CountNegativeAndSumOdds(var M: Matrix);
var q, w, CountNegative, SumOdds: integer;
begin
CountNegative := 0; SumOdds := 0;
for q := 1 to 4 do
begin
for w := 1 to 3 do
begin
if M[q, w] < 0 then Inc(CountNegative);
if (M[q, w] mod 2 0) then SumOdds := SumOdds + M[q, w];
write(M[q, w]:4);
end;
writeln;
end;
writeln('Количество отрицательных = ', CountNegative);
writeln('Сумма нечетных = ', SumOdds);
end;
VAR
A: Matrix;
i, j: byte;
BEGIN
randomize;
for i := 1 to 4 do
for j := 1 to 3 do A[i, j] := random(101)-50;
CountNegativeAndSumOdds(A);
readln;
END.
- 22.11.2016 00:36
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.