Даны два одномерных массива разной размерности заполнить их только нулями и единицами. для каждого из заданных одномерных массивов выполнить: поставить в начало этого массива все нули, а затем все единицы. pascal
var a: array[1..100] of real; i, n: integer; min, max: real; k: integer;
begin {ввод массива} if handsfree then n := random(20) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100); write(a[i], ' '); end else readln(a[i]); end; writeln();
{подсчет элементов} k := 0; for i := 1 to n do if a[i] > 5 then k := k + 1; writeln(k); end.
Разгадайте кроссворд:1.) Другое название прикладной программы. ( 10 букв ) 2.)Изображение на экране монитора готового к работе компьютера ( два слова) ( 7 букв в первом слове и 4 буквы во втором слове ) 3.) Единица информации , равная восьми битам. ( 4 буквы) 4.) Группа файлов, имеющая имя; контейнер для файлов. ( 6 букв) 5.) Прямоугольная область, занимаемая на рабочем столе работающей программой. ( 4 буквы) 6.) Файл содержащий данные ( рисунки, тексты). ( 8 букв) 7.) обязательная часть програмного обеспечения - ... система. ( 12 букв) 8.) самая маленькая единица измерения информации. ( 3 буквы) 9.) информация хранящаяся в долговременной памяти как единое целое и обозначенная именем. ( 4 буквы)1. Приложение 2. Добро 3. Байт 4. Каталог, папка. директория, фолдер 5. Окно 6. Документ 7. Операционная система 8. бит 9. Файл
var x,y : Array of integer;
j,i,o,e,n1,n2 :integer;
begin
writeln('Первый массив');
writeln('Сколько нулей?');
readln(o);
writeln('Сколько единиц?');
readln(e);
writeln('С какого числа начинаются единицы по размеру массива?');
readln(n1);
writeln('С какого числа начинаются нули по размеру массива?');
readln(n2);
if (n1 > n2) and (e > o) then
begin
setlength(x,(n1+e));
end
else
begin
setlength(x,(n2+o))
end;
for i:= 0 to 10 do
begin
Write('-':2);
end;
writeln();
writeln('Заполнение первого массива');
for i:= 0 to 10 do
begin
Write('-':2);
end;
Writeln();
if (n1 > n2) and (e > o) then
begin
for i:= 0 to (n1+e) do
begin
if e = 0 then
begin
end
else
begin
x[i] :=0;
end;
for j := n1 to (n1+e) do
begin
x[j] := 1;
end;
end;
end
else
begin
for i:= 0 to (n2+o) do
begin
if o = 0 then
begin
end
else
begin
x[i] :=0;
end;
for j := n1 to (n1+e) do
begin
x[j] := 1;
end;
end;
end;
if (n1 > n2) and (e > o) then
begin
for i:= 0 to (n1+e) do
begin
Write(x[i],' ');
end;
end
else
begin
for i:= 0 to (n2+o) do
begin
Write(x[i],' ');
end;
end;
writeln();
writeln('Второй массив');
writeln('Сколько нулей?');
readln(o);
writeln('Сколько единиц?');
readln(e);
writeln('С какого числа начинаются единицы по размеру массива?');
readln(n1);
writeln('С какого числа начинаются нули по размеру массива?');
readln(n2);
if (n1 > n2) and (e > o) then
begin
setlength(y,(n1+e));
end
else
begin
setlength(y,(n2+o))
end;
for i:= 0 to 10 do
begin
Write('-':2);
end;
writeln();
writeln('Заполнение второго массива');
for i:= 0 to 10 do
begin
Write('-':2);
end;
Writeln();
if (n1 > n2) and (e > o) then
begin
for i:= 0 to (n1+e) do
begin
if e = 0 then
begin
end
else
begin
y[i] :=0;
end;
for j := n1 to (n1+e) do
begin
y[j] := 1;
end;
end;
end
else
begin
for i:= 0 to (n2+o) do
begin
if o = 0 then
begin
end
else
begin
y[i] :=0;
end;
for j := n1 to (n1+e) do
begin
y[j] := 1;
end;
end;
end;
if (n1 > n2) and (e > o) then
begin
for i:= 0 to (n1+e) do
begin
Write(y[i],' ');
end;
end
else
begin
for i:= 0 to (n2+o) do
begin
Write(y[i],' ');
end;
end;
end.
Какие ситуации смог представил то и смог сделать. Тестером побудешь ты.