|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.05.2011, 15:36 | #1 |
Пользователь
Регистрация: 29.05.2011
Сообщений: 25
|
Организация циклов и работа с одномерными массивами
Lesichka@mail.ruпомогите пожалуйста решить:
1)Найти сумму кубов всех отрицательных элементов массива A={a[i]}. Shortint 2)Найти, сколько положительных элементов массива A={a[i]} удовлетворяют условию: с <= a[i] <= d. ) Longint; |
29.05.2011, 15:55 | #2 | |
Пользователь
Регистрация: 01.03.2011
Сообщений: 39
|
Цитата:
Код:
|
|
29.05.2011, 15:57 | #3 |
Регистрация: 17.05.2011
Сообщений: 9
|
по моему тут должен быть ЯП паскаль
|
29.05.2011, 16:01 | #4 |
Регистрация: 17.05.2011
Сообщений: 9
|
uses crt;
var a : array[1..10] of longint; i,c,d,j : integer; begin clrscr; randomize; writeln('vved C i D'); readln(c,d); j:=0; for i:= 1 to 10 do begin a[i]:=random(10) ; if a[i] > 0 then begin if (a[i]>=c) and (a[i]<=d) then begin inc(j); writeln('sootv',a[i]); end; end; end; writeln('kol-vo',j); readkey; end. 2)Найти, сколько положительных элементов массива A={a[i]} удовлетворяют условию: с <= a[i] <= d. ) Longint; Точно не знаю, но может быть так ? Я плохо разбираюсь ) Последний раз редактировалось Anya_Princess; 29.05.2011 в 16:04. |
29.05.2011, 16:05 | #5 |
Пользователь
Регистрация: 01.03.2011
Сообщений: 39
|
Olesya777, вам какой ЯП, если в СИ, то 2-ую задачку можно и так:
Код:
|
29.05.2011, 17:11 | #6 |
Пользователь
Регистрация: 29.05.2011
Сообщений: 25
|
спасибо!!!!!!!
|
29.05.2011, 17:13 | #7 |
Пользователь
Регистрация: 29.05.2011
Сообщений: 25
|
мне нужно срочно решить контрольную, пишите!!! Lesichka1820@mail.ru
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Организация циклов и работа с одномерными массивами | LegionuS | Помощь студентам | 1 | 28.09.2010 15:25 |
Организация циклов и работа с одномерными массивами | DrDre | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 26.08.2010 10:57 |
Организация циклов и работа с одномерными массивами | dusya9992 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 25.08.2010 20:49 |
Организация циклов и работа с одномерными массивами | ldinka135 | Помощь студентам | 4 | 23.08.2010 10:17 |
Организация циклов и работа с одномерными массивами | Zenit10 | Помощь студентам | 9 | 17.01.2008 22:20 |