1) просуммировать элементы массива, значения которых принадлежат промежутку (50; 60) program task_1; var i,s:integer; a:array[1..10] of integer; begin for i:=1 to 10 do begin a[i]:=random(51)+30; {массив случайных чисел из промежутка [30, 80]} writeln('a[',i,'] = ',a[i]) end; s:=0; for i:=1 to 10 do if (a[i]>50) and (a[i]<60) then s:=s+a[i]; write('s = ',s) end.
б) вывести первый элемент массива равный х program task_2; var i,x:integer; a:array[1..10] of integer; begin for i:=1 to 10 do begin a[i]:=random(51)+30; {массив случайных чисел из промежутка [30, 80]} writeln('a[',i,'] = ',a[i]) end; writeln('Введите х из диапазона [30..80]'); write('x = '); readln(x); i:=0; repeat i:=i+1 until (a[i]=x) or (i=10); if a[i]=x then write(i) else write('Нет'); end.
в) определить количество элементов больших 50 program task_3; var i,k:integer; a:array[1..10] of integer; begin for i:=1 to 10 do begin a[i]:=random(51)+30; {массив случайных чисел из промежутка [30, 80]} writeln('a[',i,'] = ',a[i]) end; k:=0; for i:=1 to 10 do if a[i]>50 then k:=k+1; write('k = ',k); end.
8 votes Thanks 10
lava12345
только объясните пожалуйста, еще .. почему в random (51)+30. Там же интервал чисел от 50 до 60
lava12345
только объясните пожалуйста, еще .. почему в random (51)+30. Там же интервал чисел от 50 до 60...
cvvkl
массив задается из 10 элементов заданных случайным образом из диапазона [30..80].
cvvkl
просуммировать только те, которые принадлежат (50..60)
cvvkl
вывести равный Х, где х - вводится с клавиатуры
cvvkl
определить количество элементов значение которых больше чем 50
cvvkl
элементы массива не обязательно должны принадлежать промежутку (50..60). такого в условии нет.
cvvkl
если будут принадлежать (50..60), то просто просуммировать от 1 до 10 и все, а у тебя условие суммирования, значит должны быть элементы не принадлежащие этому промежутку.
cvvkl
кнопочка "спасибо" не работает и звездочек нету???
Answers & Comments
Verified answer
1) просуммировать элементы массива, значения которых принадлежат промежутку (50; 60)program task_1;
var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(51)+30; {массив случайных чисел из промежутка [30, 80]} writeln('a[',i,'] = ',a[i])
end;
s:=0;
for i:=1 to 10 do
if (a[i]>50) and (a[i]<60) then s:=s+a[i];
write('s = ',s)
end.
б) вывести первый элемент массива равный х
program task_2;
var i,x:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(51)+30; {массив случайных чисел из промежутка [30, 80]} writeln('a[',i,'] = ',a[i])
end;
writeln('Введите х из диапазона [30..80]');
write('x = '); readln(x);
i:=0;
repeat i:=i+1
until (a[i]=x) or (i=10);
if a[i]=x then write(i) else write('Нет');
end.
в) определить количество элементов больших 50
program task_3;
var i,k:integer;
a:array[1..10] of integer;
begin for i:=1 to 10 do
begin
a[i]:=random(51)+30; {массив случайных чисел из промежутка [30, 80]} writeln('a[',i,'] = ',a[i])
end;
k:=0;
for i:=1 to 10 do
if a[i]>50 then k:=k+1;
write('k = ',k);
end.