Люди добрые, большая с решением трех в паскале. 1. дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 1000. опишите на языке или на одном из языков программирования алгоритм, позволяющий найти среднее арифметическое нечётных трехзначных чисел, записанных в этом массива. если ни одного такого числа нет, нужно вывести сообщение об этом. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const n=30; var a: array [l..n] of integer; i,j,s: integer; begin for i: =l to n do readln(a[i]); end. 2.дан целочисленный массив из 40 элементов, все элементы которого – целые числа в интервале от -500 до 500. опишите на языке или на одном из языков программирования алгоритм, который находит среднее арифметическое всех положительных элементов массива, которые кратны первому элементу (делятся нацело на первый элемент). гарантируется, что первый элемент массива положительный. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const n=40; var a: array [l..n] of integer; i,x,y: integer; s: real; begin for i: =l to n do readln(a[i]); end. 3. опишите на языке или одном из языков программирования алгоритм подсчета числа элементов, равных максимальному, в числовом массиве из 30 элементов.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

vinney

10.01.2020 16:31

Файл размером 32 кб передаётся через некоторое соединение со скоростью 1024 бит с секунду. определите размер файла (в кб), который можно передатьза то же время через...

Сhubby

24.11.2021 10:35

При запуске программы visual basic какой проект можно открыть? 1.только новый2.открыть существующий3.открыть объект который открывали ранее4.верно все перечисленное...

Вадім2006

28.02.2023 04:39

Мадина создала рисунок на тему «Осень» в графическом редакторе Paint и сохранила его на рабочем столе...

Anastaskip

26.02.2020 03:27

Яка з наведених функцій відноситься до статичних? А. IF Б. ABS В. SUM Г. MAX ...

Bakberdi

23.07.2022 16:42

Выделите красным контуром ложные высказывания,зелёным-истинные...

barmoksana

29.04.2021 04:31

Знайдіть в Інтернеті таблицю кодів символів ASCII. Користуючись цією таблицею, розкодуйте повідомлення: 01001000 01100101 01101100 01101100 01101111 00100001. Я НЕ...

Ggg7376

27.02.2022 07:09

Разработать математическую модель и алгоритм решения задачи. Выполнить контрольный пример. Проверить алгоритм в пошаговом режиме. Дан одномерный массив. Требуется найти...

Вероникалобова

08.06.2020 05:26

Решите логическую схему, даю...

пидрила5

03.06.2023 17:27

Продолжить ряд: i486 athlon pentium celeron...

AutumnIsBest

15.08.2021 11:54

Вниманию тех, кто знает Паскаль (АВС): 1. Задан массив Х [ 1 ... N ] . Какой оператор надо поставить вместо многоточия, чтобы найти в переменной S сумму всех элементов...

Ответ:

kotikmotik55

21.05.2020 13:35

Задача 1

const N=30;
var a: array [1..N] of integer;
i,j,s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do
if (a[i]>99)and(a[i]<1000) then
if (a[i] mod 2)<>0 then
begin
s:=s+a[i];
j:=j+1;
end;
if j=0 then writeln('в массиве нет нечётных трехзначных чисел')
else writeln('среднее арифметическое нечётных трехзначных чисел: ',s/j);
end.

задача 2

const N=40;
var a: array [1..N] of integer;
i,x,y: integer;
s: real;
begin
for i:=1 to N do readln(a[i]);
x:=abs(a[1]);
for i:=1 to N do
if (a[i]>0)and((a[i] mod x)=0) then
begin
y:=y+1;
s:=s+a[i];
end;
if y=0 then writeln('в массиве нет нечётных трехзначных чисел')
else writeln('среднее арифметическое положительных чисел кратных первому элементу: ',s/y);
end.

задача 3

const N=30;
var a: array [1..N] of integer;
i,s,m: integer;
begin
for i:=1 to N do readln(a[i]);
m:=a[1];
for i:=2 to N do
if a[i]>m then m:=a[i];
for i:=1 to N do
if a[i]=m then s:=s+1;
if s=1 then writeln('в массиве только один максимальный элемент')
else writeln('число элементов, равных максимальному: ',s-1);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку