Дан целочисленный массив из 30 элементов. Әлементы массива могут принимать натуральные значения от 1 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит количество элементов массива, не меньших 75 и при этом имеющих чётное значение, а затем увеличивает каждый такой элемент на число, равное найденному количеству. Гарантируется, что хотя бы один такой элемент в массиве есть. В качестве результата необходимо изменённый массив, каждый элемент с новой строчки. Например, для исходного массива из семи элементов, 50 80 77 90 12 55 88 программа вывести следующий массив: 50 83 77 93 12 55 91
Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования. Запрещается использовать переменные, не описанные ниже но разрешается не использовать некоторые из описанных переменных.
const
var
30
a: array [1. of Long int:
begin
longint:
for : I to N do
reading(ali));
end.
В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия.
n=10;
type
MyArr=array[1..10] of integer;
var ar:MyArr;
ar2:MyArr;
i,k:integer;
procedure SortMin(var a: MyArr;n:Integer);
var i,j,x:integer;
begin;
for I:=1 to n do
for j:=1 to n-1 do
if a[j]<a[j+1] then
begin
x:=a[j+1];
a[j+1]:=a[j];
a[j]:=x;
end;
end;
begin;
randomize;
k:=0;
writeln('First array:');
for i:=1 to 10 do
begin;
ar[i]:=random(100);
write(ar[i]:4);
if (ar[i]>10) and (ar[i] mod 3=0) then
begin;
inc(k);
ar2[k]:=ar[i];
end;
end;
if k=0 then
begin;
writeln('Нет подходящих элементов');
exit;
end;
SortMin(ar2,k);
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.
const
alpha=['a'..'z'];
digits=['0'..'9'];
var
na,nd,i:integer;
s:string;
begin
na:=0; nd:=0;
Write('Введите текст: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in alpha then Inc(na)
else
if s[i] in digits then Inc(nd);
if na>nd then Writeln('В тексте больше букв')
else
if na<nd then Writeln('В тексте больше цифр')
else Writeln('В тексте букв и цифр поровну')
end.
Тестовое решение:
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв