Работа по Паскалю.вычислить среднее арифметическое элементов массива состоящего из 30 целых случайных чисел меньших 100 которые
10-11 класс
|
делятся на 3 и не деляться на 7
program proga1;
var
a:array[1..30] of integer;
i,count,summ:integer;
begin
randomize;
for i:=1 to 30 do
a[i]:=random(100);
for i:=1 to 30 do
if (a[i] mod 3 = 0) and (a[i] mod 7 <>0)then
begin
inc(count);
inc(summ,a[i]);
end;
if count<>0 then
write(summ/count)
else
write('ничего нет');
end.
Другие вопросы из категории
написать программу на любом языке. Лучше паскаль
после того как ячейку B3 скопируют в ячейку C4?
Примечание: знак $ используется для обозначения абсолютной адресации.
1) =2*A$1 2) =2*A$2 3) =2*B$1 4) =2*B$2
• Дан массив из N вещественных чисел. Поменять местами последний и минимальный элементы массива.
• Дан массив из N целых чисел. Найти номер первого элемента, который равен количеству элементов, кратных 3.
Читайте также
среднее арифметическое элементов массива.
1) Сумму модулей элементов массива, больших числа X
2)Сумму модулей элементов массива, меньших числа X
Условие:
Напишите программу которая вычисляет среднее арифметическое элементов таблицы А(3*8) . Программа по двумерным массивам.
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.
Написать программу, которая вычисляет среднее арифметическое элементов с четными индексами и среднее арифметическое с нечетными индексами.
Ввод: Число N и элементы массива вводятся из Файла.
Вывод: В файл должны быть введены 2 вычисленных значения