1) определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. - id157854620200116 от провпр 16.01.2020 22:35

Question

Информатика: 1) определите и выведите на экран количество чисел от 50 до 500, которые делятся на 11 и 13 одновременно. 2) дан массив целых чисел, состоящий из 100 элементов. заполнить его с клавиатуры. найти: а) удвоенную сумму положительных элементов; б)вывести индексы тех элементов, значения которых больше значения предыдцщего элемента ( начиная со второго)

провпр · Accepted Answer

Var a,b,c:integer;
n:array [1..10] of integer;
begin
writeln('введите номера элементов для сравнения');
readln(a,b);
randomize;{скажите что посмотрели эту функцию в интернете и она нужна для подготовки программы к применению функции рандом}
for c:=1 to 10 do begin
n[c]:=random(-20,20);{так мы в массив ставим случайное число в диапазоне от -20 до 20}
writeln(n[c]);
end;
if n[a]<n[b] then writeln('меньший элемент массива под номером ' ,a,' больший элемент массива под номером ' ,b)
else writeln('меньший элемент массива под номером ' ,b,' больший элемент массива под номером ' ,a);
end.

MOGZ ответил