![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 27.04.2009
Сообщений: 17
|
![]()
всем привет) старшие братья)))
Задан массив S из N элементов. Определить его первый целочисленный ненулевой элемент, который делится на 3 без остатка. Найти произведение ненулевых элементов с индексами i = 0, 2, 4, 6,...... Вывести на экран индексыположительных элементов. вот написал) (надо обязательно через маллок) #include <stdio.h> #include <conio.h> #include <math.h> #include<stdlib.h> main() {int N,i,fl,P; float *S; double *ptr=NULL; clrscr(); printf("vvod N:\n"); scanf("%d",&N); S=(float*)malloc(N*sizeof(float)); for (i=0;i<N;i++) { printf("S[%d] = ",i); scanf("%d",&S[i]);} fl=0; i=0; while ((fl==0)&&(i<N)) {if ((S[i]!=0)&&(modf(S[i],ptr)==0)) {fl=1;} i++; } if (fl==1) { printf("Pervyj = %d\n",i-1);} else { printf("Netu\n");} P=1; printf("Indeksy:\n"); for (i=0;i<N;i++) {if ((S[i]!=0)&&(i%2==0)) {P*=S[i];} if (S[i]>0) {printf("%d\n",i);} } printf("Proizv = %f",P); getch(); } но чет ниче не работает( |
![]() |
![]() |
![]() |
#2 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
![]()
Код заключайте в теги CODE ("#" на панели в окне редактирования).
Вот: Код:
Забыл память освободить. Исправлено.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] Последний раз редактировалось Sazary; 27.04.2009 в 23:27. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 27.04.2009
Сообщений: 17
|
![]()
ааааааааааеееееееееееееее))) огромное спасибо профессор)
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ответе бысто на легкий вопрос... | t13sto | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 28.05.2008 21:39 |
очень легкий вопрос | ♠STO♠ | Общие вопросы Delphi | 5 | 15.07.2007 00:14 |