Дан массив X(M,N). Все нулевые элементы среди четных столбцов заменить на среднее положительных элеменов столбцов

@dreamhaker · Регистрация: 07.04.2014

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

4.44 Дан массив X(M,N). Все нулевые элементы среди четных столбцов заменить на среднее значение положительных элементов этих столбцов.

4.4 Дан массив X(M,N). В массиве в строках с нулевым элементам в главной диагонали найти наибольший элемент. Из полученных значений сформировать одномерный массив.

как решить?

@Svager · 07.04.2014, 20:12

Сообщение от dreamhaker

как решить?

головой

Добавлено через 13 секунд

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
var i,j,k,n,m,l,q:integer;
s:longint;
a:array [1..200,1..200] of integer;
BEGIN
clrscr;
  write('n=');
   readln(n);
    write('m=');
     readln(m);
   randomize;
  for i:=1 to n do
    for j:=1 to n do
     a[i,j]:=random(5);
  for i:=1 to n do begin
    writeln;
    for j:=1 to m do
     write(a[i,j]:4);
  end;
  for i:=1 to n do
    for j:=1 to m do begin
      s:=0;
      l:=0;
      if j mod 2=0 then
       for k:=1 to m do begin
         if a[i,k]<>0 then begin
           l:=l+1;
           s:=s+a[i,k];
         end;
      end;
      k:=0;
      for k:=1 to m do
         if a[i,k]=0 then
          a[i,k]:=s;
     end;
    writeln;
    writeln;
    for i:=1 to n do
     begin
       for j:=1 to m do
       write(a[i,j]:4);
        writeln;
   end;
  readkey;
END.

@dreamhaker · 07.04.2014, 20:18 **[ТС]**

а можно тоже самое, только без рандома?) пожалуйста

@Svager · 07.04.2014, 20:23

dreamhaker, ну исправьте )

Добавлено через 1 минуту

Pascal
1
2
3
4
5
6
7
 write('n=');
   readln(n);
    write('m=');
     readln(m);
       for i:=1 to n do
         for j:=1 to m do
            read(a[i,j]);

@dreamhaker · 16.04.2014, 00:06 **[ТС]**

Так, а ко второй задаче как?)

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

Рекомендую ознакомиться с правилами форума. Один вопрос - одна тема.

Новые блоги и статьи Все статьи Все блоги /
Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .	Создание нейросети с PyTorch AI_Generated 19.06.2025 Ключевое преимущество PyTorch — его питоновская натура. В отличие от TensorFlow, который изначально был построен как статический вычислительный граф, PyTorch предлагает динамический подход. Это. . .	JWT аутентификация в ASP.NET Core UnmanagedCoder 18.06.2025 Разрабатывая веб-приложения, я постоянно сталкиваюсь с дилеммой: как обеспечить надежную аутентификацию пользователей без ущерба для производительности и масштабируемости? Классические подходы на. . .	Краткий курс по С# aaLeXAA 18.06.2025 Здесь вы найдете все необходимые функции чтоб написать програму на C# Задание 1: КЛАСС FORM 1 public partial class Form1 : Form { Spisok listin = new Spisok(); . . .	50 самых полезных примеров кода Python для частых задач py-thonny 17.06.2025 Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .
C# и продвинутые приемы работы с БД stackOverflow 17.06.2025 Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .	Angular: Вопросы и ответы на собеседовании Reangularity 15.06.2025 Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .	Архитектура Onion в ASP.NET Core MVC stackOverflow 15.06.2025 Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .	Unity 4D GameUnited 13.06.2025 Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .	SSE (Server-Sent Events) в ASP.NET Core и .NET 10 UnmanagedCoder 13.06.2025 Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .

@dreamhaker 0 / 0 / 0 Регистрация: 07.04.2014 Сообщений: 3

	Дан массив X(M,N). Все нулевые элементы среди четных столбцов заменить на среднее положительных элеменов столбцов 07.04.2014, 19:48. Показов 1796. Ответов 4 Метки нет (Все метки) 4.44 Дан массив X(M,N). Все нулевые элементы среди четных столбцов заменить на среднее значение положительных элементов этих столбцов. 4.4 Дан массив X(M,N). В массиве в строках с нулевым элементам в главной диагонали найти наибольший элемент. Из полученных значений сформировать одномерный массив. как решить? 0

@dreamhaker 0 / 0 / 0 Регистрация: 07.04.2014 Сообщений: 3
	07.04.2014, 20:18 [ТС]
	а можно тоже самое, только без рандома?) пожалуйста 0

Опции темы