Помогите с Pascal, пожалуйста. Завтра нужно домашку сдать, а я ничего не понимаю :(
Решите хотя бы одну, или две)
Вот задачи:
1. Заполнить одномерный массив, размерностью 15 по следующему правилу: на нечетном месте должен стоять элемент от 10 до 100, а на четном месте должен находиться нечетный элемент на том же промежутке.
2. Дан одномерный массив, заполненный целыми случайными числами. Определить, на сколько больше сумма четных элементов по сравнению с суммой элементов кратных 3.
3. Дан двумерный массив, размерностью 6х7. Определить, сумма каких элементов больше: 2-го столбца или 3-ей строки.

1

Ответы и объяснения

2013-09-15T12:58:36+04:00
Var
    a : array [1..15] of Integer;
    i : Integer;
begin
    for i := 1 to 15 do
    begin

        if i mod 2 <> 0 then
            a[i] := RandomRange(10, 100)
        else
        begin
            a[i] := RandomRange(10, 100);
            if a[i] mod 2 <> 0 then inc(a[i]);    
        end;     
       
    end;
end.

2:

const
    N = 15;
var 
    a : array [1..N] of Integer; 
    i, s, v : Integer;
begin
    for i := 1 to N do
        a[i] := Random(1000);

    for i := 1 to N do
    begin
        if a[i] mod 2 = 0 then s := s + a[i];
        if a[i] mod 3 = 0 then v := v + a[i];
    end;

    Writeln(s - v);
    Readln;
end.

3:

var 
    a : array [1..6, 1..7] of Integer; 
    i, e, col, row : Integer;
begin

    for i := 1 to 6 do
        for e := 1 to 7 do
            a[i, e] := Random(100);

    for i := 1 to 7 do col := col + a[2, i];
    for i := 1 to 6 do row := row + a[i, 3];

    if col > row then Writeln('2-го столбца');
    if col < row then Writeln('3-ей строки');
    if col = row then Writeln('равны');

    Readln;
end.