Дано: одномерный массив D(n) ; n=10. Из элементов, меньше 10, сформировать массив
10-11 класс
|
uses crt;const n=10;var D,B,C: array [1..n] of integer; i,k: integer;
begin for i:=1 to n do begin D[i]:=random(100); writeln(D[i]); end; for i:=1 to n do begin if D[i]<10 then B[i]:=D[i]; if D[i]>10 then C[i]:=D[i]; if D[i]=10 then inc(k); end; writeln('Кол-во элементов, равных 10 = ',k);end.
) может быть. но у меня задание такое.
Я напишу на паскале)
отличный, только я в нем ничего не понимаю
Когда его изучаешь, возвращаться не хочеться
Другие вопросы из категории
аргумента от 6 с шагом 0.25.
найти максимальный элемент массива. сформулировать новый массив путем вычеркивания строки и столбца, на которых расположен максимальный элемент.
вывести на экран в формате 3 знака после запятой:
1. исходный массив
2. полученный массив
3. искомые элементы ( если они есть)
предесмотреть возможность вывода на экран и в файл....
Читайте также
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
десятичную систему счисления.3. Сложить числа.4. Выполнить вычитание.5. Выполнить умножение.6. Выполнить деление.
1. а) 218(10); б) 808(10); в) 176,25(10); г) 284,25(10); д) 253,04(10)2. а) 111000100(2); б) 1011001101(2); в) 10110011,01(2); г) 1010111111,011(2); д) 1665,3(8); е) FA,7(16).3. а) 11100000(2)+1100000000(2); б) 110101101(2)+111111110(2); в) 10011011,011(2)+1110110100,01(2); г) 1041,2(8)+1141,1(8); д) 3C6,8(16)+B7,5(16).4. а) 10110010(2)-1010001(2); б) 1101000000(2)-10000000(2); в) 1100101111,1101(2)-100111000,1(2); г) 1621,44(8)-1064,5(8); д) 1AC,B(16)-BD,7(16).5. а) 1000000(2)´ 110110(2); б) 714,34(8)´ 133,4(8); в) 16,B(16)´ 2B,6(16).6. а) 10001110011(2) : 10001(2); б) 5456(8) : 33(8); в) 6FA(16) : 13(16);
1714,28→?10;
е) DD,316→?10
123 (5) в ( ) (10)
1023 (4) в ( ) (10)
0,4412(5) в ( ) (10)
0,076 (8) в ( ) (10)
123(10) в ( ) (5)
149 (10) в ( ) (8)
1500 (10) в ( ) (8)
25 (10) в ( ) (2)