Суховодова599
?>

Заполнить массив из 10 элементов с клавиатуры целыми числами. найдите индексы элементов, больше 5 (pascal)

Информатика

Ответы

GridnevaVNIGNI"
Var 
a:array[1..10] of integer; 
i,c:integer;
Begin 
for i:= 1 to 10 do  Begin     
write('Введите ',i,' - ый элемент массива ');     
readln(a[i]);   
End; 
Write('Индексы элементов, больших 5 - ('); 
for i:= 1 to 10 do 
if a[i]>5 then Begin
write(i,' '); c:=1;
end; 
if c=0 then write('Таких нет)') else write(')');
end. 
Volodka

Объяснение:

Первыми переправляются дети.  

Сын возвращается к маме-папе.  

Папа едет на берег к дочери, потом дочь едет за братом и возвращается с ним к папе.  

Сын едет к маме, отдает ей лодку, чтобы она переплыла к папе и дочери.  

После того, как мама переправилась, дочь садится в лодку и едет к брату, подбирает его, и вместе они едут к родителям.  

Дочь остается с родителями, а сын едет к рыбаку, отдает ему лодку.  

Рыбак едет к родителям и высаживается.  

Дочь садится и едет за братом, привозит его с собой обратно (наконец-то вся семья снова вместе), они отдают лодку рыбаку.  

Лодка пересекла реку 13 раз.

rusart3

Для введення в форму даних, які можуть мати тільки одне з двох допустимих значень, призначені елементи управління CheckBox, або прапорці. Прапорці дозволяють користувачеві дати відповідь на поставлене запитання. У разі позитивної відповіді користувач встановлює прапорець, і він набуває вигляду квадрата, в якому розміщена галочка. При невстановленому прапорці він має вигляд порожнього квадрата, позначаючи негативну відповідь на поставлене запитання. Можливий ще один стан прапорця, при якому він не визначений. У цьому стані він має вигляд галочки на сірому тлі.

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

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

Заполнить массив из 10 элементов с клавиатуры целыми числами. найдите индексы элементов, больше 5 (pascal)
Ваше имя (никнейм)*
Email*
Комментарий*

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

mshelen732
cristiansirbu9974
Lapushkin1988
НиколаевнаФ
Yelizaveta555
makitra08
Rakitin
h777eta
ea9824165833886
stperelyot7833
julianikaleksandrova
Neveselova
Volodka
Platon
alexk13