ПАСКАЛЬ.1)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 1000.опишите на русском языке или на одном из
10-11 класс
|
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
program task1;
const
n = 30;
var
a :array [1..n] of integer;
i, sum :integer;
sr :real;
begin
for i:= 1 to n do
readln(a[i]);
sum:= 0;
for i:= 1 to n do
if (a[i] > 99) and (a[i] < 1000) and (a[i] mod 2 = 1) then
sum:= sum + a[i];
if sum = 0 then
writeln('Нечетных трехзначных чисел нет!')
else
sr:= sum/n;
writeln(sr);
end.
program task2;
const
n = 30;
var
a :array [1..n] of integer;
i, p :integer;
begin
for i:= 1 to n do
readln(a[i]);
p:= 1;
for i:= 1 to n do
if (a[i] mod 2 = 0) and (a[i] mod 10 <> 0) then
p:= p * a[i];
writeln(p);
end.
This is just the peercft answer for all of us
Другие вопросы из категории
10;for n:=1 to 100 doB[n] := A[n]*n;Сколько элементов массива B будут иметь положительные значения?
…, в которой каждое последующее число равно сумме двух предыдущих чисел. Количество простых чисел среди первых сорока пяти чисел Фибоначчи составляет …
Читайте также
программирования алгоритм позволяющий найти и вывести номер элемента массива имеющего максимальное значение сре элементов массива которые делятся на 3 и кратны 5
информатике.Опишите на русском языке или на одном из языков програмирования алгоритм, который позволяет найти и вывести количество учащихся чья оценка за тест выше средней оценки в классе.
const N=30;
var a: array [1..N] of integer;
i, j: integer;
s: real;
begin
for i:=1 to N do readln(a[i]);
...
end.
принимать значения от 0 до 1000.описать на русском или на одном из языков програмирования алгоритм,который находит и выводит среднее арифметическое всех элементов массива,имеющих нечетное значение
Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного
класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на
русском языке или на одном из языков программирования алгоритм, который подсчитывает
и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что
хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены
так, как показано ниже. Использовать другие переменные запрещается.
берут тех, чей рост не менее 180 см.Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.
Код Pascal
cоnst N = 30;
var A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
for i:=1 to N do readln(A);
...
end.