Задачи По Паскалю

[viktor2014]

Здравствуйте сыну задали задачи по паскалю а он дуб дубом в нем не могли бы вы помочь решить?


Двухмерные массивы
1. Сформировать и вывести на экран в виде таблицы массив А[1..8,1..6], заполнив его целыми случайными числами из интервала [-10,10].
2. В массиве В[1..5,1..5] найти произведение элементов главной диагонали.
3. В двухмерном массиве хранится информация о количестве студентов в той или иной группе каждого курса института с первого по пятый (в первой строке — информация о группах первого курса, во второй — второго и т.д.). На каждом курсе имеется 4 групп. Составить программу для: а) расчета общего числа студентов на любом курсе; б) определения наименьшей по количеству студентов группы на 4 курсе.

 

[interacia]

Здравствуйте сыну задали задачи по паскалю а он дуб дубом в нем не могли бы вы помочь решить?


Двухмерные массивы
1. Сформировать и вывести на экран в виде таблицы массив А[1..8,1..6], заполнив его целыми случайными числами из интервала [-10,10].
2. В массиве В[1..5,1..5] найти произведение элементов главной диагонали.
3. В двухмерном массиве хранится информация о количестве студентов в той или иной группе каждого курса института с первого по пятый (в первой строке — информация о группах первого курса, во второй — второго и т.д.). На каждом курсе имеется 4 групп. Составить программу для: а) расчета общего числа студентов на любом курсе; б) определения наименьшей по количеству студентов группы на 4 курсе.

Ссылка на

Ссылка скрыта от гостей

program topic49973;
var
j,i:integer;
M:integer;
B: array [1..5,1..5] of real;
Pro:real;
begin
M:=5;
for i:=1 to M do begin
write(i,' строки : ');
for j:=1 to M do read(B[i,j]);
end;
Pro:=1;
for i:=1 to M do begin
Pro:=Pro*B[i,i];
end;
writeln;
writeln('Ответ');
writeln('Произведение элементов главной диагонали ',Pro);
end.


Добавлено:

Здравствуйте сыну задали задачи по паскалю а он дуб дубом в нем не могли бы вы помочь решить?


Двухмерные массивы
1. Сформировать и вывести на экран в виде таблицы массив А[1..8,1..6], заполнив его целыми случайными числами из интервала [-10,10].
2. В массиве В[1..5,1..5] найти произведение элементов главной диагонали.
3. В двухмерном массиве хранится информация о количестве студентов в той или иной группе каждого курса института с первого по пятый (в первой строке — информация о группах первого курса, во второй — второго и т.д.). На каждом курсе имеется 4 групп. Составить программу для: а) расчета общего числа студентов на любом курсе; б) определения наименьшей по количеству студентов группы на 4 курсе.

program topic49973s0;
var
j,i:integer; // счетчики в циклах
A: array [1..8,1..6] of real;
Pro:real; // произведение элементов
begin
// ввод значений элементов массива по строчно 5 элементов через пробел
for i:=1 to 8 do begin
for j:=1 to 6 do A[i,j]:=random(21)-10; // определяем очередной элемент
end;
// ответ
writeln;
writeln('Ответ');
for i:=1 to 8 do begin
Writeln;
for j:=1 to 6 do write(A[i,j],' ');//Вывод очередного элемента
end;
end.