Дан массив,содержащий 2016 неотрицательных целых чисел. Необходимо найти в этом массиве количество таких элементов,расположенных непосредственно
перед ним. Напишите на паскале программу. Исходные данные объявлены так, как показано ниже. Const N=2016; var a: array [1..N] of integer; i , k:integer; Begin For i :=1 to N do readLn (a [i] ); ..... End
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Эдельмар
Const N=2016;
var a: array [1..N] of integer;
i, k:integer;
Begin
//заполняем массив случайными числами
For i:=1 to N do a[i]:=random(10000);
//выводим исходный массив
writeln ('Исходный массив');
For i:=1 to N do write(a[i], ' ');
k:=0; //сумма всех элементов меньших 2016
//проходим циклом по всему массиву
For i:=1 to N do
begin
If a[i]<2016 then k:=k+1; //если элемент меньше 2016, значит увеличиваем сумму на 1
end;
//выводим сумму
Writeln ('Количество элементов, стоящих перед 2016: ', k);
End.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
