PascalЗадана одномерная числовая таблица из n элементов (Массив). Найти наибольший элемент max и наименьший элемент min

Знания

Информатика

1 ответ:

Шерзод1124 года назад

0 0

Как то это очень сложно...

Читайте также

Составьте программу, которая формирует массив из 20 случайных чисел от -10 до 10выводит на экрын элементы с нулевыми значениями

оксана гуляй

Const Sz = 100; // Размер массива

var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;

begin
N := 20;
for i:=1 to N do
a[i] := Random(20)-10;
writeln('Элементы массива: ');
for i:=1 to N do
write (a[i],' ');
writeln;
for i:=1 to N do
begin
if (a[i]=0) then
writeln(a[i],' ',i);
end;
end.

0 0

4 года назад

Срочно! Помогите! Командой C:\DOC\SYS указывается путь к: Выберите один ответ: a. подкаталогу SYS корневого каталога; b. подката

Caprykorn [433]

конечно же вариант (с)

0 0

4 года назад

Переведите 226 бит во все изученные единицы измерения количества информации

bcz

28,25 байт
0,0276 кбайт
0,0000269 мегабайт<span>
0,221 килобита</span>
<span>0,000216</span> мегабита
В остальное там 200 символов.

0 0

4 года назад

Как называется пакет программ управляющих работой компьютера и обеспечивающий взаимодействие с пользователем

Жанна Горбатенко

Ответ:

Называется: операционная система - это пакет программ, управляющий работой компьютера и обеспечивающий взаимодействие между пользователем и компьютером.

0 0

4 года назад

Составьте программу, вводящую true, если высказывание является истинным, и false в противном случае: а) сумма цифр трёхзначного

Александр Яковлев...

{a}

var x: integer;
begin
read(x);
write( (x mod 10 + x div 10 mod 10 + x div 100) mod 2 = 0 )
end.

{b}

var a,b,c: integer;
begin
read(a,b,c);
write( (a <> b) and (b <> c) and (a <> c) )
end.

0 0

4 года назад