Задачи в школу =(

[rump]

Брату в 11 классе по углубленному изучению по информатике задали вот такие задачи(он их решить не смог и попросил решить меня)):
1. Найти сумму элементов массива С[1..10](3, 0, 0, -9, 7, 6, 0, 6, 5, 0) кратных 3.
2. Найти среднее арифметическое значение елементов массива Х[1..9, 1..5]
Если возможно, напишите программки полностью. Буду очень благодарен!

[__STDC__]

УГЛУБЛЕННОЕ?!?!?! О, Кришна..

1.

for i:=1 to 10 do
      if (c[i] mod 3 = 0) then
         sum := sum+c[i];

2.

for i:=1 to 9 do
      for j:=1 to 5 do
         n := n+X[i,j];
n:= n/45;

[rump]

Можно полностью от А до Я программы??? Огромнейшая просьба!!!!!!

[__STDC__]

Советую забрать документы из школы... хоть на паскале надо? потом не буду переделывать если окажется что на чем-то другом

[Chudo4258]

rump, я вот помотрел темы в которых есть твои сообщения, ты везде задаешь один и тотже вопрос: напишите мне полный код программы, при чем все на массивы. Ты бы уже взял книгу да почитал, тема не сказать что сложная, там понимать нечего.

[__STDC__]

{А}
var
	c:array[1..10] of integer;
	i:byte;
	sum:integer;
begin
	sum := 0;
	for i:=1 to 10 do begin
		readln(c[i]);
		if (c[i] mod 3 = 0) then
			sum := sum + c[i];
	end;
	writeln(sum);
	readln;
end.
{Я}

{А}
var
	x:array[1..9,1..5] of integer;
	i,j:byte;
	n:real;
begin
	n := 0;
	for i:=1 to 9 do begin
		for j:=1 to 5 do begin
			x[i,j] := random(10);
			write(x[i,j]:3);
			n := n + x[i,j];
		end;
		writeln;
	end;
	n := n / 45;
	writeln(n);
	readln;
end.
{Я}

[rump]

Chudo4258, не дай бог тебе имень такие проблемы по учебе какие имею сейчас я! Извени, но просто лишней минуты чтоб сесть почитать чтото НЕ по учебе сейчас нету. А брату помочь нужно...

[rump]

__STDC__, Огромное тебе человеческое спасибо, от всего сердца! Респект!

[__STDC__]

Сообщение от rump

__STDC__, Огромное тебе человеческое спасибо, от всего сердца! Респект!

имейте ввиду, я не одобряю этого... все же если вы учитесь в школе с каким-то уклоном, надо делать упор на эти предметы... Сделал только потому, что еще сам не настолько стар, чтобы забыть как бывает тяжело... когда всякие экзамены, etc. и когда помощи неоткуда ждать... Так что советую все же как-то поменять свои взгляды, тем более если говорят что это уже не первый раз, когда вы просите за вас сделать...

[DeKot]

Да... Слава Богу, что это не медицинский форум.А то к врачам идти страшно!
Ну, извините за OFFTOP/Не удержался.