Друзья помогите пожалуйста с задачками!

[sting]

9 Найдите сумму целых положительных чисел, больших 20, меньших 100, крат¬ных 3 и за-канчивающихся на 2, 4 или 8.

[Serge_Bliznykov]

9

var i,s : integer;
begin
  s:=0;
  for i:=21 to 99 do 
  begin
    if (i mod 3)=0 {кратно трём } then
      if ((i mod 10)=2) or ((i mod 10)=4) or ((i mod 10)=8) then
        s := s + i;
  end;
  WriteLn('Summa = ',s);
end.

[sting]

спасибо! вот ещё!

мне вот эта задача попалась! я её почти решил!

она вложена картинкой....

[Карась]

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

спасибо! вот ещё!

мне вот эта задача попалась! я её почти решил!

она вложена картинкой....

А что там собственно сложного?
Покажите что получилось...

[sting]

Я её в классе делал и не скинул!
я сделал двумерный массив! матрицу задал 5 на 5! а как вывести вот эти числа не наю!

[puporev]

uses crt;
const n=5;
var b:array[1..n,1..n] of integer;
    i,j,k,sum:integer;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=random(10)-4;
        write(b[i,j]:3);
      end;
    writeln;
  end;
k:=0;
for i:=1 to n do
if b[i,1]<0 then
  begin
    sum:=0;
    k:=k+1;
    for j:=1 to n do
      begin
        sum:=sum+b[i,j];
      end;
    writeln('Summa v stroke ',i,'=',sum);
  end;
if k=0 then writeln('Takih strok net!');
readln
end.

[sting]

6 Напишите программу поиска четырехзначного числа, которое при делении на 133 дает в остатке 125, а при делении на 134 дает в остатке 111.

[puporev]

uses crt;
var i:integer;
begin
clrscr;
for i:=1000 to 9999 do
if (i mod 133 = 125)and(i mod 134=111)
then writeln(i);
readln
end.

[sting]

PUPOREV спасай!

Мне надо решить 3 задачи! и тогда поставят этот сраный экзамен! Выручай! я уже мозг поломал решал их сёдня!
Реши пожалуйста до вечера! только плиз с подробным пояснением почти каждой строчки!

20 Дан массив А из пяти строк и шести столбцов. Сформировать массив из сумм положи-тельных элементов каждой строки; если их нет в строке, результат должен быть равен 0; ко-личества таких элементов в каждой строке. Определить произведение сумм сформированно-го массива и общее количество положительных элементов строк. Определить минимальное и максимальное значения сумм и поменять местами строки исходной матрицы.

36 Дан одномерный массив размером m. Удалить первый отрицательный элемент, если такой элемент есть.

24 Дана действительная матрица . Найти сумму наибольших значений элементов ее строк.

[sting]

ПАМАГИ ПОЖАЛУЙСТА