сервис вопросов и ответовПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО НАДО! Положительные элементы вещественного массива разделить на сумму отрицательных элементов(массив брать до 10)
5-9 класс|
|
Perka95
14 нояб. 2015 г., 0:24:06 (8 лет назад)
Zmoldyr
14 нояб. 2015 г., 2:53:09 (8 лет назад)
var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
Ответить
Другие вопросы из категории
в оперативной памяти могут храниться
а)данные и адреса
б)программы и адреса
в)программы и данные
г) данные и быстроедйствие
Помогите!!! 24 БАЛЛА!!! Если бы имел больше, то больше бы поставил за это решение!!!
Надо сменить в языке Паскаль с While на Repeat !!!
Program P1;
Var a,n:integer;
Begin
Write ('a='); readln(a);
While a<>0 do begin
n:=n+1; a:=a div 10;
End;
Writeln('n=',n); readln
end.
Он сейчас в While, надо сменить этого в Repeat. Помогите ребята!!! Заранее благодарен!!!
Читайте также
Помогите пожалуйста ! срочно надо!!!...в заданной последовательности целых чисел определите сумму элементов кратных 10! пример задачки вот именно под
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
Массив В задан случайным образом а) подсчитать сумму элементов массива, меньших своего номера; б) подсчитать сумму элементов массива, стоящих на четных
местах; в) подсчитать сумму отрицательных элементов массива; г) подсчитать сумму элементов массива, больших произвольного числа К. помогите, пожалуйста
Помогите, пожалуйста, решитьПомогите, пожалуйста, решить задачу!
Вычислить сумму всех элементов двумерного массива. Напишите, пожалуйста, программу.
Помогите пожалуйста срочно надо программа
Водится возраст человека вывести имеет ли право человека голосовать (<=18) если не имеет то вывести сколько лет ему надо подождать
Нароооооод!Кто смыслит в информатике,помогите пожалуйста решить номер один.Воть:сформируйте массив, содержащий 15 элементов ,с помощью датчику
случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты
Вы находитесь на странице вопроса "ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО НАДО! Положительные элементы вещественного массива разделить на сумму отрицательных элементов(массив брать до 10)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.