Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC неповторяющиеся элементы двумерного массива https://www.cyberforum.ru/ pascalabc/ thread327587.html
Найти все неповторяющиеся элементы двумерного массива целых чисел.
Количество различных чисел в массиве Pascal ABC
Дан одномерный массив из 10 целых элементов. Подсчитайте количество различных чисел в нем.
Pascal ABC Сумма элементов массива, выше лв диагинали. https://www.cyberforum.ru/ pascalabc/ thread327559.html
дан целочисленный массив B. Вычислить сумму элементов этого массива, расположенных выше левой диагонали.
Pascal ABC Найти суму элементов матрицы, имеющих оба нечетных индекса Помогите решить задачу. Создайте двумерный целочисленный массив A, заполните его случайный образом и найдите суму всех его элементов, имеющих оба нечетных индексов. https://www.cyberforum.ru/ pascalabc/ thread327528.html
Подсчитайте сколько раз в массиве повторяется самое частое число Pascal ABC
Дан одномерный массив целых чисел. Подсчитайте сколько раз в нем повторяется самое частое число.
Pascal ABC Максимальня сумма элементов массива. https://www.cyberforum.ru/ pascalabc/ thread327509.html
Найдите в линейном массиве два элемента, сумма которых максимальна. Спасибо=)
Pascal ABC Коментарии к строчкам Var a,b:array of integer; c:array of integer; i:byte; begin randomize; for i:=1 to 15 do begin a:=random(10)+1; Write('a=',a,' '); b:=random(30)-20; Write('b=',b,' '); https://www.cyberforum.ru/ pascalabc/ thread327504.html Pascal ABC создание массивов
Дан массив А. Известно что среди его элементов два и только два равны между собой. Напечатать их индексы.
Pascal ABC Отобразить матрицу в заданном виде Нужно сделать так чтобы отобразилась матрица в следующем виде: 1*2 0 0 0...0 0 2*3 0 0...0 0 0 3*4 0...0 ................. 0 0...0 n*(n-1) Program ni4ego_ne_poimy; uses crt; https://www.cyberforum.ru/ pascalabc/ thread327462.html Pascal ABC Переход в программе https://www.cyberforum.ru/ pascalabc/ thread327403.html
Здравствуйте. При решении задания нужно в условии переходить между строчками в программе. Возможно ли это и если да, то с помощью какого оператора. Например: If n=2*m then (перейти на строчку в программе) Спасибо
Реализовать рекурсивную функцию вычисления n-ого числа из последовательности Фибоначчи по формуле: Fib(0)=1, Fib(1)=1, Fib(n)= Fib(n-1)+ Fib(n-2). Pascal ABC
Реализовать рекурсивную функцию вычисления n-ого числа из последовательности Фибоначчи по формуле: Fib(0)=1, Fib(1)=1, Fib(n)= Fib(n-1)+ Fib(n-2).Спасибо огромное заранее!!!!!!!!!!!!
Pascal ABC ребят привет!!!Кто может помочь?? Ребят здраствуйте!!!Кто может завтра помочь на экзамене по программированию решить несколько задач??в интервале времени с 12 дня до 15 дня?????ОЧень нужно ....в долгу не останусь!!!!Может с кем смогу связаться по почте чтоб удобно было и договориться!!!!очень прошу...напишите сегодня мне кто сможет завтра помочь, в долгу правда не останусь, на телефон хоть кину или еще что!!!жду отзывы на почту... https://www.cyberforum.ru/ pascalabc/ thread327374.html
38 / 38 / 18
Регистрация: 16.05.2011
Сообщений: 139
29.06.2011, 18:39 0

Найти максимальный по модулю элемент и поменять его местами с первым - Pascal ABC - Ответ 1805248

29.06.2011, 18:39. Показов 1179. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено loca как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
const n=20;
var i,max,t,maxi:integer; a:array[1..n] of integer;
begin
  clrscr;
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(51)-25;
      if abs(a[i])>max then begin max:=abs(a[i]); maxi:=i; end;
      write(a[i],' ');
    end;
  writeln;
  t:=a[1];
  a[1]:=a[maxi];
  a[maxi]:=t;
  for i:=1 to n do write(a[i],' ');
  readln
end.


Вернуться к обсуждению:
Найти максимальный по модулю элемент и поменять его местами с первым Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2011, 18:39
Готовые ответы и решения:

Найти наибольший по модулю элемент массива и поменять его местами с первым
Помогите !!! Составить программу,использую процедуру. В массивах X(60) и Y(50) найти наибольшее по...

Найти первый максимальный элемент и поменять его местами с первым элементом массива.
Дан одномерный массив А длиной М. Найти первый максимальный элемент и поменять его местами с первым...

В матрице 5х3 в первом столбце найти максимальный элемент и поменять его местами с первым
В матрице 5х3 в первом столбце найти максимальный элемент и поменять его местами с первым. Вот тут...

Найти максимальный элемент массива и поменять его местами с первым элементом
1)(ввод элементов с клавиатуры)Дан одномерный массив целых чисел. Найти максимальный элемент...

1
29.06.2011, 18:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.06.2011, 18:39
Помогаю со студенческими работами здесь

Найти максимальный элемент стека и поменять его местами с первым элементом
Информационное поле элемента стека числовое. Найти максимальный элемент стека и поменять его...

Найти максимальный элемент столбца матрицы и поменять его местами с первым
Здравствуйте, у меня есть программа на языке Си, которая должна задавать матрицу, искать в каждом...

Найти максимальный элемент и поменять его местами с первым элементом массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Найти максимальный...

Найти максимальный элемент массива и поменять его местами с первым элементом
Дан одномерный массив, который содержит не более 40 вещественных чисел. Найти максимальный элемент...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru