Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискComboВсе проекты

Помогите пожалуйста составить блок-схемы к задачам.

Ирина Омелюх Ученик (245), закрыт 11 месяцев назад
Задача 1. Дан массив чисел. Определить количество его элементов, которые не превосходят заданного числа K.
Program task_1;
const n=25;
var a: array[1..n] of real;
k:real;
i:1..n;
kol:1..n;
begin
randomize;
for i:=1 to n do begin
{генерирование вещественного числа в интервале от 0 до 1000}
a[i] := random*1000;
{случайным образом задается знак элемента массива}
if random(2)=1 then a[i]:=-a[i]
end;
writeln('Сформирован массив:');
for i:=1 to n do write(a[i]:0:2,' ');
writeln;
write('Введите число - '); readln(k);
kol:=0;
for i:=1 to n do if a[i]<=k then kol:=kol+1;
writeln('В массиве элементов, не превосходящих заданного числа, ровно - ', kol:7);
readln
end.

Задача 2. Задан массив чисел. Разработать программу поиска максимального элемента. Если таких элементов несколько, то, кроме того, определить и их количество.
Program task_2;
const n=150;
var a: array[1..n] of real;
max: real;
i, kol, m: integer;
begin
repeat
write(Введите количество элементов меньшее либо равное 150. m= );
readln(m)
until m<=150;
write(Введите первый элемент массива - ); readln(a[1]);
max:=a[1]; kol:=1;
for i:=2 to m do begin
write(Введите следующий элемент массива - );
readln(a[i]);
if max<a[i] then
begin
max:=a[i];
kol:=1
end
else if max=a[i] then kol:=kol+1
end;
writeln('Сформирован массив:');
for i:=1 to n do write(a[i]:0:2,' ');
writeln;
writeln(Максимальный элемент - ,max:0:2, таких элементов - ,kol:5);
readln
end.

Задача 3. Задан массив целых чисел. Разработать программу, которая удаляет все элементы с нечетной суммой цифр.

Program task_3; const n=20; var mas: array[1..n] of integer; sum, i, j, k, l: integer;
begin randomize; for i:=1 to n do begin
mas[i]:=random(1000);
if random(2)=1 then mas[i]:=-mas[i]
end;
writeln(' ---------Исходный массив -----------');
for i:=1 to n do write(mas[i]:6);
writeln;
i:=1; k:=n;
while i<=k do begin {Просмотр элементов массива}
sum:=0;
l:=abs(mas[i]); {создаем копию элемента массива, отбросов знак числа}
while l<>0 do begin {Вычисляем сумму цифр элемента массива}
sum:=sum+l mod 10; l:=l div 10
end;
{Удаление элемента с нечетной суммой цифр}
if sum mod 2 = 1 then
begin
for j:=i+1 to k do mas[j-1]:=mas[j]; {сдвигаем все элементы, стоящие за i-м элементом вправо}
dec(k)
end
else i:=i+1
end; {конец цикла while, обеспечивающего просмотр элементов массива}
writeln('-----------Массив после удаления элементов ------------');
for i:=1 to k do write(mas[i]:6);
writeln;
readln
end.

Задача 4. Составить программу, которая определяет количество различных элементов в одномерном массиве А из N элементов.
Program task_4;
const n=10;
var a:array[1..n] of integer;
i,j,k:integer;
begin
{инициализация массива}
writeln('Введите элементы массива.');
for i:=1 to n do begin
write(' Элемент массива a[', i, ']=');
readln(a[i])
end;
k:=1; {количество различных элементов}
for i:=2 to n do begin {проверка встречался ли элемент а [i] раньше}
j:=1;
while a[j] <> a[i] do j:=j+1;
if j=i then k:=k+1 {если элемента равного a[i] нет, то увеличить значение счетчика}
end;
writeln('Массив состоит из элементов:');
for i:=1 to n do write(a[i]:6);
writeln;
writeln('Количество различных элементов - ',k)
end.
Похожие вопросы
Также спрашивают