OberonCore

Составить программу в которой сформировать двумуерный целочисленный массив A[1..10,1..10] из случайных целых чисел и подсчитать суммы строк массива.

У Вас проблема с генерацией случайных чисел?
Посмотрите http://www.zinnamturm.de/#Pbox.
( в модуле PboxRandom )

Можно использовать ObxRandom:
1) Инициализируем генератор текущим тактом времени:
ObxRandom.InitSeed(SHORT(Services.Ticks())
2) ObxRandom.Uniform возвращает нам случайное число от 0 до 1.
Получить, как в ТурбоПаскале, случайное из целого диапазона, можно так:

У меня проблема с подсчетом суммы строк массива!!

Это серьёзная проблема.

Я бы сделал так:

MODULE CalcSum;

VAR
Ma: ARRAY 10 OF ARRAY 10 OF INTEGER;
MRes: ARRAY 10 OF INTEGER;
Mi, Mk: INTEGER;
BEGIN
(* Заполнение массива Ma *)
Следует заполнить чем-нибудь
(* Расчет суммы *)
FOR Mi:=0 TO 9 DO
FOR Mk:=0 TO 9 DO
INC(MRes[Mi],Ma[Mi,Mk]); (* Накопление суммы *)
END;
END;
END CalcSum.


Че та не то!

uses crt;
var a:array[1..10,1..10] of byte;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(15);
write(a[i,j]:4);
end;
end;
end.

Массив из случайных чисел!
Как дальше подсчитать суммы строк массива!

Конечно не то. Ты в Turbo Pascal работаешь?

В паскале то что я написал будет выглядеть примерно так(+генерация случайных чисел):

Да в Турбо!
Спасибо Grabli ! Вроде всё работает!!!
Через пару дней точно скажу!!

Однако, товарищи...

Не в той вы среде работаете, сударь, и не с тем языком. Тут мы Компонентным Паскалем знимаемся...

Возможно Вы не использовали кнопку Code. Она рядом с Quote находится.

ПОМОГИТЕ Очень надо !!!!!!!

Составить программу в которй сформировать одномерный массив A[1..100] из случайных целых чисел.Скопировать массив A в массив В[1..100] таким образом чтобы B[1]=A[51],
B[2]=A[52], ... ,B[50]=A[100],B[51]=A[1],B[52]=A[2], ... ,B[100]=A[50]!!!

Прошлая задача ништяк прокатила!!!Спасибо Grabli!!!:!:!!

Я бы Вам предложил делать одновременное заполнение обоих массивов. Таким путем можно несколько съэкономить на записи и немного увеличить быстродействие программы.
Примерно так: for (int i=1;i<=100;i++) {int r = rnd(); A[i] = r; B[i<=50?i+50:i-50]=r}. А откуда Вы эти задачи берете? Может быть лучше начать с чего нибудь попроще?

Можно на ты!В университете дают!А не могли ли выложит полностью весь код программы! Это для Турбо Паскаля?

В Университете дают, а Вы вместо того чтобы самому подумать сюда приходите просить решить задачку кого-то другого?

Чё смог я сделал !!! А это не знаю всё перепробавал не получалось вот и спросил! Как будто это сильно вас отвлекает!!!

По-моему, пора банить...

Да ладно, Федор Васильевич, пусть помогут, у кого пара минут есть. Оберонщики - друзья человеков

Нет не понимаете. Преподаватель рассчитывает, что Вы сами сделали, а если Вы ему будете "очки втирать" - то как он сможет помочь? Вот какие попытки предпринимались для решения этого примера? Расскажите, может быть найдется, что посоветовать.