Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Определение суммы значений элементов, расположенных по контуру матрицы Задан двумерный массив, состоящий из N строк и M столбцов (N, M<10). Написать программу определения суммы значений элементов, расположенных по контуру данного массива. помогите пожалуйста,напишите программу на паскале!( https://www.cyberforum.ru/ pascalabc/ thread773844.html	Запись в файл Pascal ABC Всем привет ! Помогите вывести введенную и полученную строку в файл. Результат работы проги - удаление символов длинна которых меньше заданной с клавы! var s: string; len, i,si, j: integer; begin write('Напишите строку '); readln(s); write('Количество символов: '); readln(si); len:= length(s); i:= 1;
Pascal ABC Получить новую матрицу путем деления всех элементов исходной матрицы на ее наибольший по модулю элемент https://www.cyberforum.ru/ pascalabc/ thread773781.html Задан двумерный массив А. Получить новую матрицу путем деления всех элементов исходной матрицы на ее наибольший по модулю элемент	Pascal ABC Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с клавиатуры. Подсчитать число таких элементов Написать программу, которая в матрице чисел A(N,M) находит все элементы, равные числу, введенному с клавиатуры. Подсчитать число таких элементов. https://www.cyberforum.ru/ pascalabc/ thread773780.html
Pascal ABC В матрице чисел найти все элементы, превышающие по абсолютной величине заданное число Написать программу, которая в матрице чисел A(N,M) находит все элементы, превышающие по абсолютной величине заданное число B. Подсчитать число таких элементов и записать их в массив C	Pascal ABC Дана матрица чисел A(N,M). Написать программу, которая определяет номер строки, в которой сумма элементов матрицы минимальна https://www.cyberforum.ru/ pascalabc/ thread773775.html Дана матрица чисел A(N,M). Написать программу, которая определяет номер строки, в которой сумма элементов матрицы минимальна.
Pascal ABC Составить одномерный массив B из номеров строк матрицы, в которых есть хотя бы одно нечетное число Дан двумерный целочисленный массив A(M,N). Составить одномерный массив B из номеров строк этого массива, в которых есть хотя бы одно нечетное число. https://www.cyberforum.ru/ pascalabc/ thread773770.html	что-то вроде т9 Pascal ABC помогите доработать программу. это что-то вроде т9. вписываешь числа, оно тебе слова. нужно как-нибудь уменьшить список перебора. заранее спасибо Program per; uses crt; const arr:array of char = (('А','Б','В',' '), ('Г','Д','Е',' '), ('Ж','З','И','Й'), ('К','Л','М',' '),
Pascal ABC Можно ли создать динамический массив? https://www.cyberforum.ru/ pascalabc/ thread773755.html можно ли на авс паскале работать с динамическим массивом?	Pascal ABC Нужны исходники игр https://www.cyberforum.ru/ pascalabc/ thread773737.html Пожалуста киньте ссылок где можно скачать код игр (Ну тоесть мне нужна не игра а сам код) Добавлено через 6 часов 28 минут Ну че никто не знает???
Текстовые файлы: вывести по алфавиту звонкие согласные из каждого нечетного слова Pascal ABC программа производит чтение из файла....txt и по алфавиту выводит ЗВОНКИЕ СОГЛАСНЫЕ из каждого нечётного слова.только нечётного. Help!Please! сам туплю!	Pascal ABC Работа с файлами произвольного доступа.Запрограммировать поиск по Ф.И.О.,адресу,телефону и просмотр всего справочника https://www.cyberforum.ru/ pascalabc/ thread773685.html Разработать адресный справочник включающий в себя Ф.И.О.,адрес проживания,телефон.Запрограммировать поиск по Ф.И.О.,адресу,телефону и просмотр всего справочника.

ermolay

3451 / 2389 / 2135

Регистрация: 04.12.2011

Сообщений: 3,966

29.01.2013, 07:23

Массив: все элементы, больше среднего арифметического элементов массива, заменить на 0 - Pascal ABC - Ответ 4065858

29.01.2013, 07:23. Показов 4380. Ответов 1

Метки (Все метки)

Сообщение было отмечено teliale как решение

Решение

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j: byte;
  s: real;
begin
  write('Ââåäèòå ðàçìåð ìàòðèöû: ');
  readln(n);
  s:=0;
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(21)-10;
      write(a[i,j]:4);
      s:=s+a[i,j];
    end;
    writeln;
  end;
  writeln;
  s:=s/n/n;
  writeln('Ñðåäíåå = ',s);
  writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if a[i,j]>s then a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.

Вернуться к обсуждению:
Массив: все элементы, больше среднего арифметического элементов массива, заменить на 0 Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.01.2013, 07:23

Готовые ответы и решения:

Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического
В одномерном массиве целых чисел заменить все элементы, меньшие среднего арифметического,значением...

Все отрицательные элементы массива заменить квадратом среднего арифметического
Дан массив.Все отрицательные элементы этого массива заменить квадратом среднего арифметического его...

Дан одномерный массив. Составьте программу определения количества элементов массива, больше среднего арифметического всех элементов.
Дан одномерный массив. Составьте программу определения количества элементов массива, больше...

Заполнить все элементы большие 5 значением среднего арифметического элементов массива
заполните все элементы, которые больше 5, значением среднего арифметического всех элементов массива

	29.01.2013, 07:23

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.01.2013, 07:23

Помогаю со студенческими работами здесь

Массив: Для каждой строки заменить все элементы матрицы меньшие среднего арифметического этой строки на нулевое значение.
Задана вещественная матрица размером NхM. Для каждой строки заменить все элементы матрицы меньшие...

Дан массив, состоящий из N элементов.Обнулить все элементы, большие среднего арифметического всех элементов массива
Дан массив, состоящий из N элементов. Обнулить все элементы, большие среднего арифметического всех...

Создать матрицу C: элементы матрицы В, по величине больше среднего арифметического, заменить нулями
Дана матрица В(8 8). Необходимо сформировать новую матрицу С(8 8), в которой элементы матрицы В(8...

Удалить из массива те элементы, которые больше среднего арифметического
Дан массив целых чисел D1,...,D30. Удалить из него те элементы, которые больше среднего...

Наверх