Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal поменять местами строку и столбец (17).В заданном целочисленном массиве Аnn поменять местами строку с наименьшей суммой элементов и столбец с наибольшей. https://www.cyberforum.ru/ pascal/ thread38274.html	Натуральное число Pascal СПС всем за вчерашнюю помощь:friends:но немогли бы вы и сеня чуть помочь?:-[ вот 2 задачи : дано натуральное число. Верно ли, что его первая цифра превышает m? ДАно натуральное число.Определить две его максимальные цифры.
Pascal Переместить все нулевые элементы в начало массива, сохраняя порядок следования остальных элементов В заданном целочисленном вектореАп переместить все нулевые элементы в его начало, сохраняя порядок следования остальных элементов. https://www.cyberforum.ru/ pascal/ thread38272.html	Pascal Расположить элементы массива так, чтобы первыми шли положительные элементы, далее - отрицательные, далее - нули https://www.cyberforum.ru/ pascal/ thread38271.html В заданном целочисленном вектореАп расположить элементы так, чтобы первыми шли положительные элементы, далее - отрицательные, далее - нули, причем внутри каждой группы прежний порядок их следования должен сохраниться.
Pascal Упорядочить символьный массив задан символьный массив Аnn со случайно расставленными, не идущими подряд строчными буквами латинского алфавита. Расставить их по авфавиту	Pascal поменять местами эл-ты https://www.cyberforum.ru/ pascal/ thread38261.html В заданном целочисленном массиве Аnm поменять местами: А) минимальный и максималльный эл-ты массива Б) первый отрицательный и последний положительный (в векторе) В) поменять местами главную и побочную диагональ Г) произвести сквозную сортировку по возрастанию эл-тов заданного массива
Pascal Имитация движения двух косм.кораблей Привет всем , у меня такая проблема, как мне сделать программе чтобы она остнавливалась в любой момент по нажатиюлюбой клавиши , и корабли эти были как цилк т.е. повторялись или оставались при стыковке и когда нажим. клавишу выходило. Задача такова сделать имитацию движения двух косм. кораблей у которых происходит стыковка. Вот код который я что то пытался сделать. Uses crt,Graph; Var... https://www.cyberforum.ru/ pascal/ thread38260.html	Удалить цифру стоящую на заданном месте Pascal из записи заданного натурального числа N удалить удалить цифру стоящую на заданном месте M
Pascal Циклически сдвинуть на шаг вправо элементы вектора https://www.cyberforum.ru/ pascal/ thread38257.html сдвинуть на шаг вправо элементы заданного вектора Аn, причем последний эго элемент должен занять первое место ПОМОГИТЕ!!	Pascal определить индекс эл-та массива массив Аmn заполнен построчно слева направо и сверху вниз натуральными числами от 1 до n*m По заданному значению элемента массива определить его индексы - номер строки и столбца Помогите, пожалуйста!! https://www.cyberforum.ru/ pascal/ thread38256.html
Pascal найти все натуральные трехзначные числа, сумма которых равна заданному числу найти все натуральные трехзначные числа, сумма которых равна заданному числу N	Pascal Найти все натуральные трехзначные числа, крайние цифры которых симметричны относительно средней найти все натуральные трехзначные числа , крайние цифры которых симметричны, относительно средней: 101, 111, 121,...999 ПОМОГИТЕ, ПОЖАЛУЙСТА!! https://www.cyberforum.ru/ pascal/ thread38252.html

mamedovvms

2923 / 844 / 324

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

Сообщений: 2,633

05.06.2009, 06:42

Линейные массивы - Pascal - Ответ 183510

05.06.2009, 06:42. Показов 1314. Ответов 1

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

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

Решение

Pascal

uses crt;
var a:array[1..31] of real;
     i:integer;
     s:real;
begin
for i:=2 to 31 do
 begin
  writeln('Vvedite kol-vo osadkov v ',i,' den ');
 readln(a[i]);
 
for i:=1 to 31 do
 write(a[i]);
writeln;
 end;
 clrscr;
 i:=0;
 s:=0;
 repeat
  i:=i+1;
  s:=s+a[i];
 until(s>0)or(i>=31);
writeln('Колличество дней без осадков ',i-1);
readln;
end.

Но этот код будет работать только при условии что хотябы один день в месяц были осадки

Добавлено через 3 минуты 33 секунды

росмотреть случай когда осадков не могоо быть и в какой день мая

что то я не понял что это значит, напиши попонятнее

Вернуться к обсуждению:
Линейные массивы Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

05.06.2009, 06:42

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

Линейные массивы.
Поправьте пожалуйста код программы в соответствии с условием. Cоставить программу, которая находит...

Линейные массивы
Написать программу, которая для заданной последовательности A1, A2…A2n вычисляет: Max(A1+A2n ,...

Линейные массивы
Нужно написать программу, которая проверяет – образуют ли элементы заданного массива возрастающую...

Линейные массивы
Написать программу, которая упорядочивает по убыванию элементы заданной последовательности с...

	05.06.2009, 06:42

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

05.06.2009, 06:42

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

Линейные массивы
Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нем отрицательных,...

Линейные массивы
Здрасте, решите пжлста задачки: A8: В массиве все элементы, стоящие после максимального,...

линейные массивы
Написать программу, которая подсчитывает количество поло*жительных элементов в заданном массиве а ,...

Линейные массивы
Написать программу, которая упорядочивает по убыванию только те элементы заданной...

Наверх