ilonchick679
?>

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

Информатика

Ответы

rublevaoe392

var

i,c:integer; //Объявляем переменные

mas: array [1..20] of integer; //Объявляем массив

begin

c:=0; //Обнуляем переменную c

writeln('20 случайных чисел:'); //выводим на экран сообщение

randomize; //запускам рандом

for i:=1 to 20 do begin //запускаем цикл для массива от 1го до 20го элемента по очереди

mas[i]:=random(5,20); //генерируем число от 5 до 20

if mas[i] mod 2 = 0 then begin //запускам проверку, на четность числа. Если оно делится без остатка на 2

c:=c+1; //то к переменной c прибавляем единицу (значит оно четное

end;

write(mas[i], ' '); //Выводим наш массив

end;

writeln(); //пробел между строк

writeln('Количество четных элементов = ', c); //выводим количество четных элементов  

end.

miyulcha8077

1)

var

i,c:integer; //Объявляем переменные

mas: array [1..20] of integer; //Объявляем массив

begin

c:=0; //Обнуляем переменную c

writeln('20 случайных чисел:'); //выводим на экран сообщение

randomize; //запускам рандом

for i:=1 to 20 do begin //запускаем цикл для массива от 1го до 20го элемента по очереди

mas[i]:=random(5,20); //генерируем число от 5 до 20

if mas[i] mod 2 = 0 then begin //запускам проверку, на четность числа. Если оно делится без остатка на 2

c:=c+1; //то к переменной c прибавляем единицу (значит оно четное

end;

write(mas[i], ' '); //Выводим наш массив

end;

writeln(); //пробел между строк

writeln('Количество четных элементов = ', c); //выводим количество четных элементов  

end.

2)

var

i:integer; //Объявляем переменные

s:real; //Объявляем переменные

mas: array [1..10] of real; //Объявляем массив

begin

writeln('Введите 10 вещественных чисел'); //выводим на экран сообщение

for i:=1 to 10 do begin //запускаем цикл заполнения массива

read(mas[i]); //вводим число с клавиатуры

if mas[i] < 1 then //проверяем меньше ли единицы введенное число

s:=s+mas[i]; //если меньше,то прибавляем его в сумму (считаем сумму всех чисел, меньше 1, чтобы найти среднее арифметическое)

end;

s:=s/10; //Делим сумму на количество чисел  

writeln ('Среднее арифметическое = ',s);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

На бесконечном поле имеются две горизонтальная стены одинаковой длины, расположенные точно одна над другой, длина стен неизвестна. расстояние между стенами неизвестно. робот находится над нижней стеной в клетке, расположенной у её левого края.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Kelena190533
Kochetova92
Vlad Petr531
vasilevich-F
lobanosky162
Moroshkina-Aristova2011
stendpost
Павел
aananasAnastiya1270
morozov1605
Tarakanova_pavel
annazhurawlewa
NurlanAleksandrovich
Mikhailova
obitelsvel8