Информатика, опубликовано 20.03.2020 04:26
с информатикой - ОДНОМЕРНЫЕ массивы паскаль
Напишите программу нахождения минимального элемента. Если чисел нет, нужно вывести сообщение чисел нет″.
Ответы
Ответ оставил: Гость
function IsPrime(number:integer):boolean;
begin
if number = 1 then IsPrime := True
else begin
for var i:= 2 to trunc(sqrt(number)) do begin
if number mod i = 0 then IsPrime := False
else IsPrime := True;
end;
end;
end;
begin
var sqnc := ReadArrInteger('Вводи: ', ReadInteger('Длина массива: '));
sqnc.Where(p -> IsPrime(p)).Min.Println;
end.
Объяснение:
Ответ оставил: Гость
PascalABC Net
begin var a := ArrRandom(30, -100, 100); //Массив из 30 элементов от - 100 до 100 Println('Исходный массив', a); var x:=a.Where(x->x>1); Println('МинимальноеОтвет оставил: Гость
Объем занимаемый одним пикселем i. k=2^i , где k кол-во цветов. 4=2^i, отсюда i=2 битам. Переведем 5 килобайт=5*1024 байт=5*1024*8 бит= 40960 бит - это будет I. Количество пикселей n=I/i=40960/2=20480 пикселей.Ответ оставил: Гость
1. а=5 (считает слова) 2. d=1 (считает дни)
3. если D <= 10,
4. то перейти к п. 4,
5. иначе перейти к п.6
6. а = а + 2 d = d + 1
7. вывод а
8. конец
Ответ оставил: Гость
Правильный ответ : Б)
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
