Елена_Зайкин1665
?>

Создать одномерный массив, содержащий целые числа. элементы массива вводятся с клавиатуры. найти номера всех элементов больше 5 (вывести их на экран), если таких нет, то сообщить об этом.

Информатика

Ответы

guujuu
Var 
a:array[1..10] of integer; 
i,n:integer;
Begin 
for i:=1 to 10 do Begin 
Write('Введите ',i,'-ый элемент массива '); 
Readln(a[i]); 
end; 
for i:= 1 to 10 do 
if a[i]>5 then Begin write(i,' '); n:= 1; end; 
if n<>1 then write('Чисел больше 5 нет');
End.
Александровна1244
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Введите 35 целых чисел:',35);
  a.OrderBy(x->x).Println.Reverse.Println
end.

Пример
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
helenavalenti2846

Вообще-то в КОИ-8 8 бит на символ

Потому привожу два расчета для двух вариантов


[32, 32, 32, 32]

Общий вес I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

K = 32 * 32 * 32 шт = 32768 шт

Вес текста I = 32768 * 32 бит = 1048576.0 бит =

= 131072.0 байт = 128.0 Кбайт = 0.125 Mбайт

[32, 32, 32, 8]

Общий вес I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

K = 32 * 32 * 32 шт = 32768 шт

Вес текста I = 32768 * 8 бит = 262144.0 бит =

= 32768.0 байт = 32.0 Кбайт = 0.03125 Mбайт

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

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

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

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

Stefanidi_Semeikina1896
gulsinatahckeeva
abrolchik8511
Герасимова107
dkedrin74038
serov555zaq5
Воронина
Baidina
elvini857
cetarbkilork82
KrisTinka
matveevaev81
alisabutusova
Мария1414
osandulyak