Pascal ABC

Cortex1998 — Tue, 25 Nov 2014 19:09:40 GMT

В 3-й задаче,массив рандомными числами забить или ввод с клавы?

Добавлено через 4 минуты
Вот с 2-мя вариантами:
P.S Коментарии+подогнать код под себя, думаю и сами сможете...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const n=10;
var a:array[1..n] of integer;
    i,s:integer;
begin 
  s:=0;
  for i:=1 to n do {Ввод с клавы}
   begin
    read(a[i]);
   end;
  //for i:=1 to n do {random}
  // begin
  //  a[i]:=random(100);
  // end;
 for i:=1 to n do 
   begin
    if a[i]>5 then
     begin 
      s:=a[i]+s;
     end;
   end;
  writeln(s);
end.

Удачи.8-)

Разбить матрицу на квадраты размером 3х3. В центре каждого квадрата поместить сумму других элементов квадр

Cortex1998 — Tue, 25 Nov 2014 18:52:15 GMT

Будем думать.

Форум программистов и сисадминов Киберфорум - Блоги - Cortex1998

Pascal ABC

Разбить матрицу на квадраты размером 3х3. В центре каждого квадрата поместить сумму других элементов квадр