Предмет: Информатика,
автор: vizz9ka
Решите задачу в паскале, использование массивов, пожалуйста
Вычислить сумму тех элементов массива А(10), числовые значения которых принадлежат полуинтервалу i ≤ A[i] ≤ i+1.
Ответы
Автор ответа:
0
const
n=10;
var
i,s:integer;
a:array[1..n] of integer;
begin
Randomize;
Write('Исходный массив: ');
s:=0;
for i:=1 to n do begin
a[i]:=Random(15)+1;
Write(a[i],' ');
if (a[i]>=i) and (a[i]<=i+1) then s:=s+a[i]
end;
Writeln;
Write('Сумма элементов в заданном полуинтервале равна ',s)
end.
Пример выполнения
Исходный массив: 8 9 8 12 10 3 8 1 10 2
Сумма элементов в заданном полуинтервале равна 18
n=10;
var
i,s:integer;
a:array[1..n] of integer;
begin
Randomize;
Write('Исходный массив: ');
s:=0;
for i:=1 to n do begin
a[i]:=Random(15)+1;
Write(a[i],' ');
if (a[i]>=i) and (a[i]<=i+1) then s:=s+a[i]
end;
Writeln;
Write('Сумма элементов в заданном полуинтервале равна ',s)
end.
Пример выполнения
Исходный массив: 8 9 8 12 10 3 8 1 10 2
Сумма элементов в заданном полуинтервале равна 18
Похожие вопросы
Предмет: Русский язык,
автор: magimedovaieisdkdkis
Предмет: Другие предметы,
автор: arturnazarov271
Предмет: Русский язык,
автор: magimedovaieisdkdkis
Предмет: Химия,
автор: katbo2
Предмет: Физика,
автор: tomaramosina