М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Nastya4816
Nastya4816
02.08.2022 11:21 •  Информатика

14 ! , первому лучший ответ составить алгоритм позволяющую создавать массив заполненный числами задаными датчиком случайных чисел на интервале (-37,66).вывести на экран нечетные елементы массива а. размер произвольный

👇
Ответ:
yura23424
yura23424
02.08.2022
// PascalABC.NET 3.3

begin
 var a:=ArrRandom(10,-37,66); a.Println;
 writeln('Нечётные элементы:');
 a.Where(x->x mod 2<>0).Println;
end.

Пример:
10 53 1 16 -28 29 22 59 66 -31
Нечётные элементы:
53 1 29 59 -31
4,4(33 оценок)
Открыть все ответы
Ответ:
Misterriko70
Misterriko70
02.08.2022
Циклы VBA (ч.1). Команды организации циклов
Какие либо действия процедуры повторяющиеся заданное количество раз или пока выполняется или не выполняется некоторое условие называют циклом.

Процесс выполнения все операторов, заключенных в структуру цикла, один раз называется итерацией цикла.

Структуры цикла, всегда выполняющиеся заданное количество раз, называются циклами с фиксированным числом итераций. Другие типы структур цикла повторяются переменное количество раз в зависимости от некоторого набора условий. Такие циклы называются неопределенными циклами.

Блок операторов, находящийся между началом и концом цикла называется "тело цикла".

Самой простой структурой цикла является фиксированный цикл.
4,5(81 оценок)
Ответ:
sparksfiyfdgghffgg
sparksfiyfdgghffgg
02.08.2022
PascalABC.NET
Программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.

var   
t : text;   
a,k,i : integer;  
begin 
assign (t,'File.txt'); 
reset (t); 
i := 0;  k := 0;   
While not Eof (t) do   
begin     
i := 0;     
While not Eoln (t) do     
begin       
read (t,a);       
if (a = 0) and (i = 1) then         
k := k +1;       
if i = 0 then         
i := 1       
else         
i := 0;     
end;     
readln (t);    
end;        
close (t);   
writeln (k); 
end.
4,6(39 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ