Xwab
Форумыnavigate_nextДругие языки программирования

pascal задача
Сообщения
DarveL

Windtalkers, я код почти не смотрел.
Я условия не совсем понимаю и без этого не могу что-то подсказать.

15 Мар 2011, 12:14
Windtalkers

ясно( спасибо

15 Мар 2011, 12:29
Дмитрий

Windtalkers, ты, по-моему, сам не понял, что нужно сделать.  Тебе нужно в массиве, в промежутке от 1 до k, найти минимальное число и заменить все элементы массива на это число? Так? Если да, то общий ход у тебя верный, вот только зачем тогда ты ищешь максимальный элемент? 0_о
for i:=1 to k do
if a[i]<min then min:=a[i];
for i:=1 to n do
a[i]:=min;
Предварительно, естественно, задав переменную min.
Ну и по уму если делать, то нужно сделать защиту от дурака при вводе k. Ведь я могу и отрицательное число ввести.

15 Мар 2011, 15:14
IIyX

хм, подскажите плз как ее решать- вообще не понимаю что от меня хотят..

Необходимо составить программу подсчитывающую,сколько раз элемент C[I,I]двумерного массива С(N,N) встречается в этом массиве

20 Мар 2011, 12:52
DarveL

IIyX, тебе дают матрицу.
В нем выбирают случайный элемент на пересечении i-строки и j-столбца.
Надо посчитать сколько раз значение элемента встречается в матрице.
Задача элементарная

20 Мар 2011, 13:16
IIyX

спасибо)) сделал))

21 Мар 2011, 10:36
Windtalkers

помогите мне решить .я тут немного сделал а дальше незнаю
Program dmas_z123;

uses crt;

const n=3;m=4;

var a:array[1..n,1..m] of integer;

min,max, Sum, iMin,iMax, i, k: integer;

begin

randomize;

For i:=1 to n do

begin

For k:=1 to m do

begin

a[i,k]:=random(50);

write(a[I,k]:4);
Дана прямоугольнаяматрицаю найти строку с наибольшей и наименьшей суммой элементов. Вывести на печать найденные строки и суммы их элементов.

22 Мар 2011, 10:01
Ответить на тему