Modilanim
5 год назад
Нужно написать три программы на языке паскаль. каждую нужно дописать (нач,конец). ОЧЕНЬ СРОЧНО!!! Прошу помогайте те кто реально в этом понимает
ОТВЕТЫ
Sholczev
Aug 8, 2019
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]gt;50) and (a[i]lt;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]gt;50 then k:=k+1;
write(k = ,k);
end.
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]gt;50) and (a[i]lt;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]gt;50 then k:=k+1;
write(k = ,k);
end.
85
Смежные вопросы: