Задание по массивам

[rump]

Задали контрольную, но незнаю как ее сделать. помогите пожалуйста!!!
1. Найти среднее арифметическое значение элементов массива X[1..9], (1, 34, 5, 6, 78, 9, 0, 0, 0)
2.найти минимальный член массива В[1..9], сумму элементов, значение которых меньше 8
3.Найти сумму отрицательных элементов массива С[1..7, 1..7]
4. найти произведение положительных членов массива A[1..10, 1..8]
5. ======================== =)
6.В двухмерном массиве А[1..5,1..5] найти наименьший элемент побочной диагонали (сам не знаю что такое побочьная диагональ)

Просьба писать программу полностью, потому как я в програмировании вообще л.о.х. =)

Заранее благодарочка всем откликнувшимся!

[fbus]

стучи в аську, сделаю с объяснениями

[Chudo4258]

1

S:=0;
for i:=1 to 9 do
 S:=S+A[i];
Writeln('Sr.arifm.= ', S/9:10:5);

2:

S:=0;
min:=A[1];
for i:=1 to 9 do
 begin
  if B[i]<min then min:=B[i];
  if B[i]<8 then S:=S+B[i];
 end;

3:

S:=0;
for i:=1 to 7 do
 for j:=1 to 7 do
 if C[i,j]<0 then S:=S+C[i,j];

4:

P:=1;
for i:=1 to 10 do
 for j:=1 to 8 do
 if A[i,j]>0 then P:=P+A[i,j];

Раз требования к написанию програм ужесточились писать не буду ....

Структура программы:

Program ИМЯ;
const ОПИСАНИЕ СОНСТАНТ;
type ОПИСАНИЕ ТИПОВ;
var ОПИСАНИЕ ПЕРЕМЕННЫХ;
begin
  ТЕЛО ПРОГРАММЫ (практически то, что я вам написал)
end.

[Rise]

6-я задача.
Побочная диагональ - это диагональ идущая с нижнего левого угла в верхний правый угол. В программе просто сравниваем индексы, считая их сумму, которая должна делится на 6, если элемент находится на побочной диагонали.

Program Ex1;
uses crt;
const
     n=5;
var
   a:array[1..n,1..n] of integer;
   i,j,min:integer;
begin
clrscr;
randomize;
     writeln ('Ishodnii massiv');
     for i:=1 to n do
       for j:=1 to n do
         a[i,j]:=random (10)-5;
          begin
            for i:=1 to n do
              begin
                for j:=1 to n do
                  write (a[i,j]:3);
                  writeln;
              end;
          end;
     writeln;
     min:=10;
     for i:=1 to n do
         begin
           for j:=1 to n do
             begin
               if ((i+j) mod 6=0) and (i<=j) then
                  if a[i,j]<min then min:=a[i,j];
             end;
         end;
     writeln ('Naimenshii element = ',min:3);
readkey;
end.

[rump]

Пожалуйсто 2 и 4 задачи решите, люди. Реально горит!!!!

[AEK]

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

Даны целые числа А1,А2,А3, получить целочисленную матрицу [B i,j]i,j=1,2,3 для которой Bi,j=Ai-3Ai
AEK на форуме Добавить отзыв для AEK Пожаловаться на это сообщение Редактировать/удалить сообщение