Паскаль. Дан массив X(N,M). Найти наибольшее значение среди сумм каждого столбца массива

@zema48 · Регистрация: 12.03.2013

Author24 — интернет-сервис помощи студентам

1)Дан массив X(N,M). Найти наибольшее значение среди сумм каждого столбца массива.
2)Дан массив X(N,M). Среди НЕчётных строк масива определить кол-во элементов, равных первому элементу массива.
3)Дан массив X(N). Сформировать массив Y из элементов массива X ,больших 100.
4)Дан массив X(N). Получить новый,выбросив из исходного все элементы с наименьшим значением.

@Harlem · 12.03.2013, 21:23

3):

Pascal

for i:=1 to n do 
    if x[i]>100 then begin 
             y[i]:=x[i];
             inc(k);
    end;
for i:=1 to k do
    write(y[i]);

Добавлено через 2 минуты
В 4 Вы имели ввиду, что наименьшие - это меньшие какого-то заданного числа?
Если так, то вот:

Pascal

read(s);
writeln;
for i:=1 to n do
   if x[i]>s then begin
       y[i]:=x[i];
       inc(k);
   end;
for i:=1 to k do
    write(y[i]);

HighPredator · 12.03.2013, 22:34

Комментарий модератора

zema48, на один вопрос должна быть создана одна тема. Оформите остальные задачи в соответствии с правилами.
Закрыто.

@zema48 0 / 0 / 2 Регистрация: 12.03.2013 Сообщений: 13
		1
	Паскаль. Дан массив X(N,M). Найти наибольшее значение среди сумм каждого столбца массива 12.03.2013, 20:24. Показов 1257. Ответов 2 Метки нет (Все метки) 1)Дан массив X(N,M). Найти наибольшее значение среди сумм каждого столбца массива. 2)Дан массив X(N,M). Среди НЕчётных строк масива определить кол-во элементов, равных первому элементу массива. 3)Дан массив X(N). Сформировать массив Y из элементов массива X ,больших 100. 4)Дан массив X(N). Получить новый,выбросив из исходного все элементы с наименьшим значением. 0

Опции темы

Паскаль. Дан массив X(N,M). Найти наибольшее значение среди сумм каждого столбца массива

Решение