Помогите пожалуйста студентки, массивы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Помогите пожалуйста студентки, массивы |
-Даша- |
Сообщение
#1
|
Гость |
1)Ввести 10 целых чисел, вычислить сумму чисел, начиная с минимального до последнего элемента.
2)Сформировать массив [4x6], поменять местами столбец с макс. элементом и столбец с минимальным элементом. 3)Сформировать массив [5x5], найти максимальнй элемент, находящийся выше главной диагонали и минимальный элемент, наход-ся ниже главной дипгонали. Всем очень признательна заранее за помощь |
Гость |
Сообщение
#2
|
Гость |
Задачи ведь несложные.. В FAQ'e есть пример циклов, которые проходят по элементам выше\ниже диагоналей; задач на минимум и максимум тоже решалось очень много. Почитай темы и попробуй сделать что-нибудь, а потом, если что, поправим)) Ну тогда поправляй (сегодня просто надо сдавать эти задачки): 1)вот что я сделала, только не смейтесь: uses crt; var a:array[1..10] of integer; min,k,i,sum,n,s:integer; begin randomize; clrscr; for i:=1 to 10 do begin a[i]:=random(100)-5; end; min:=a[1]; for i:=1 to 10 do begin if a[i]<min then min:=a[i]; end; write('Massiv sostoit:'); for i:=1 to 10 do begin write (a[i], ' '); if min:=a[i] then write (i,' '){вот здесь выводиться номер минимального элемента, а как его запомнить в виде отдельной переменной не знаю?} end; writeln; writeln begin s:=0; k:=min; {как присвоить переменной К номера минимального элемента?} for i:=k to 10 do s:=k+a[i]; writeln; writeln ('Summa elementov',s); end; readkey; end. |
Текстовая версия | 2.05.2024 7:54 |