|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
21.11.2008, 13:12 | #11 |
Студентик :)
Пользователь
Регистрация: 29.09.2008
Сообщений: 84
|
Код:
Код:
|
21.11.2008, 14:06 | #12 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
Спасибо невнимательно прочитал!!!
|
21.11.2008, 14:08 | #13 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
5)Найти значение максимального четного элемента массива.
Program mas;
uses crt; const M: array [1..10] of integer =(10,12,0,15,-5,4,-15,3,0,11); Var max,i: integer; imax:integer; BEGIN clrscr; max:=M[1]; imax:=1; for i:=2 to 10 do if M[i]>max then max:=M[i]; writeln(‘max=’,max); readln; END. |
21.11.2008, 14:09 | #14 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
3)Найти отношение произведений ненулевых элементов первой и второй половин массива.
А эту как интересно??? |
21.11.2008, 14:13 | #15 | |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Цитата:
нужно проверку делать Код:
Код:
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
|
21.11.2008, 14:20 | #16 | |
Участник клуба
Регистрация: 10.11.2008
Сообщений: 1,502
|
Цитата:
Код:
а вообще для общего случае надо бы ввести еще пару переменных чтобы проверять а были ли в этих половинах ненулевые элемент
Нормальное состояние техники - нерабочее, все остальное частный случай.
|
|
21.11.2008, 15:52 | #17 |
Пользователь
Регистрация: 07.11.2008
Сообщений: 14
|
Спасибо за помощь!!!
Может еще кто-нибудь чем поможет... Буду благодарен, в понедельник зачет... Последний раз редактировалось Goldberg; 21.11.2008 в 16:27. |
21.11.2008, 19:08 | #18 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
Дан двумерный массив М, состоящий из целых чисел ((-1,5,8,0,11), (1,7,-15,4,0),(3,-4,10,0,16)).
Дан двумерный массив М, состоящий из целых чисел ((-1,5,8,0,11), (1,7,-15,4,0),(3,-4,10,0,16)).
6)Найти сумму и количество положительных и отрицательных элементов массива. Program mas; uses crt; const M: array [1..3,1..4] of integer =((-1,5,8,-11)(1,7,-15,0)(3,-3,-4,16)); Var s,s2,s3,s4,I,j: integer; BEGIN clrscr; s:=0; S2:=0; S3:=0; S4:=0; for i:=1 to 3 do for j:=1 to 4 do if M[i,j]>0 then begin s:=s+ M[i,j]; s2:=s2+1; end; writeln(‘Summa pologitelnix =’,s); writeln(‘Colichestvo pologitelnix elementov =’,s3); for i:=1 to 3 do for j:=1 to 4 do if M[i,j]<0 then begin s3:=s3+ M[i,j]; s4:=s4+1; end; writeln(‘Summa otricatelnix =’,s3); writeln(‘Colichestvo otricatelnix elementov =’,s4); readln; END. Последний раз редактировалось Tosa; 22.11.2008 в 16:22. |
21.11.2008, 21:53 | #19 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
7)Найти сумму и количество элементов столбцов с четными индексами.
Дан двумерный массив М, состоящий из целых чисел ((-1,5,8,0,11), (1,7,-15,4,0),(3,-4,10,0,16)).
7)Найти сумму и количество элементов столбцов с четными индексами. Program mas; uses crt; const M: array [1..3,1..4] of integer =((-1,5,8.0,11)(1,7,-15,4.0)(3,-4,10,0,16)); Var s,s2,I,j: integer; BEGIN clrscr; s:=0; S2:=0; for i:=1 to 3 do for j:=1 to 4 do if j mod 2=0 then begin s:=s+ M[i,j]; s2:=s2+1; end; writeln(‘Summa elementov s chetnimi stolbcami =’,s); writeln(‘Colichestvo elementov=’,s2); readln; END. Последний раз редактировалось Tosa; 22.11.2008 в 16:09. |
22.11.2008, 15:58 | #20 |
Пользователь
Регистрация: 14.11.2008
Сообщений: 15
|
Дан двумерный массив М, состоящий из целых чисел ((-1,5,8,0,11), (1,7,-15,4,0),(3,-4,10,0,16)).
8)Найти среднее значение элементов строк с нечетными индексами. Program mas; uses crt; const M: array [1..3,1..4] of integer =((-1,5,8,0,11)(1,7,-15,4,0)(3,-4,10,0,16)); Var s,i,j,k: integer; a: real; BEGIN clrscr; s:=0; k:=0; for i:=1 to 3 do if i mod 2<>0 then for j:=1 to 4 do begin s:=s+ M[i,j]; k:=k+1; end; a:=s/k; writeln(‘Srednee znachenie elementov nechetnix strok=’,a:4:2); readln; END. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задача Whlie do нужна помощь | shadowburn | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 21.11.2008 19:06 |
Задача Pascal на массив (нужна помощь) | STIG_E70 | Помощь студентам | 4 | 18.06.2008 20:19 |
[C] Задача на указатели . Нужна помощь | shtkuh | Помощь студентам | 1 | 26.01.2008 08:47 |
Задача с матрицей(нужна помощь) | VDK23RUS | Помощь студентам | 5 | 14.06.2007 12:55 |