сервис вопросов и ответовНайти среднее арифметическое всех положительных элементов одномерного массива. В Delphi.
10-11 класс|
|
Zarina202
20 дек. 2015 г., 6:36:02 (8 лет назад)
Katiusha125
20 дек. 2015 г., 8:03:49 (8 лет назад)
Решение во вложениях. Удачи.
Ksenon16
20 дек. 2015 г., 9:28:02 (8 лет назад)
const
n = 30;
var
a: array[1..n] of integer;
i, s: integer;
begin
Randomize;
s := 0;
writeln('Исходный массив');
for i := 1 to n do
begin
a[i] := Random(100) - 50;
write(a[i]:4);
if a[i] > 0 then s := s + a[i]
end;
writeln;
writeln('Сумма положительных элементов равна ', s)
end.
Тестовое решение:
Исходный массив
-17 -8 11 -47 30 -32 18 -15 -36 18 -3 45 11 44 -14 -33 13 -26 -8 -31 -42 45 -9 2 42 48 6 10 -12 27
Сумма положительных элементов равна 370
Livadnaya99
20 дек. 2015 г., 11:48:38 (8 лет назад)
На Паскале не пойдет?
Сергей145
20 дек. 2015 г., 12:59:54 (8 лет назад)
Комментарий удален
Darya98morozova
20 дек. 2015 г., 13:59:49 (8 лет назад)
Нет нужно на делфи
Daniel358
20 дек. 2015 г., 16:23:24 (8 лет назад)
Комментарий удален
Orieshietniak
20 дек. 2015 г., 18:05:18 (8 лет назад)
На Паскале не работал и поэтому не знал что они с Дельфи похожи. Мне нужно выводить результат на форму, массив на StringGrid. Думаю разберусь, Спасибо!
Ответить
Другие вопросы из категории
Из заданной строки получить новую строку, заменив в
ней все группы букв «abcd» на «abc».Новую
строку переписать в файл.Pascal/
Решить задачу в паскале
Дано A вычислить c=A^3+ln(A), если c<=0 вычислить и напечатать только положительные значения функции y=sin (A*x) где x изменяется на отрезке -3;3 с шагом 0,4.Если c>0 вычислить и напечатать значение функции Z=tgx где x изменяется на том же отрезке
В каталоге находятся файлы со следующими именами:
file.mdb
file.mp3 i
lona.mpg
pile.mpg
miles.mp3
nil.mpeg
Читайте также
Задан одномерный массив размером 40. Определите количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
Дан одномерный массив A размерностью N(<=0). Значение массива ввести с клавиатуры, заполнить массив с помощью генератора случайных чисел. найти среднее
арифметическое и количество всех положительных элементов массива))
Помогите составить программу в Паскале, буду благодарна:)
Помогите исправить программу. Она должна вычислять среднее арифметическое всех чисел в массиве меньших 50. Вот программа:
Program Zadacha;
Uses crt;
var a:array[1..1000] of integer;
c,i,n,s :integer;
s1: real;
begin;
clrscr;
writeln("Введите размерность массива);
readln(n);
writeln('Введите массив');
for i:=1 to n do
begin a[i]:=random(100);
if a[i]<50 then begin inc(c); s:=s+a[i];end;s:=s+a[i];s1:=s/N;
writeln('Массив A:');
for i:=1 to N do write(a[i]:4);
writeln;
writeln('Среднее арифметическое равно=',s1);
end;
end.
Вы находитесь на странице вопроса "Найти среднее арифметическое всех положительных элементов одномерного массива. В Delphi.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.