4 года назад

Заполнить массив из 20 элементов случайными числами от -5 до 5. Вывести элементы с чётными числами

1 ответ:

vasyarf [7]4 года назад

0 0

Const
   n = 20;
Var
   A:array[1..n] of integer;
   i:integer;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(11)-5;
    Write(' ',A[i])
    End;
WriteLn;
Write('Чётные элементы:');
For i:= 1 to N do
    if A[i] mod 2 = 0 then Write(' ',A[i]);
ReadLn
End.

Читайте также

Дано трехзначное число abc. Напишите программу, позволяющую вывести на экран следующее двузначное число: a(b+c).

andrew dobr [2]

VAR
 s: String;
BEGIN
 Read(s);
 Write((Ord(s[1])-48)*(Ord(s[2]) + Ord(s[3]) - 96));
END.

0 0

4 года назад

Прочитать ещё 2 ответа

Y=tgx; -1,32<=x<=1,49 Дельта x = 0,11 Найти все y, лежащие в интервале [-14;+17] и их количество.

Оксана9101980

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=-1.32;
var b:=1.49;
var h:=0.11;
var y1:=-14.0;
var y2:=17.0;
var k:=0;
var x:=a;
while x<=b do begin
 var y:=Tan(x);
 if (y>=y1) and (y<=y2) then begin
 Writeln('x=',x:5:2,' y=',y:7:4);
 Inc(k)
 end;
 x+=h
 end;
Writeln('Найдено значений: ',k)
end.

Результат
x=-1.32 y=-3.9033
x=-1.21 y=-2.6503
x=-1.10 y=-1.9648
x=-0.99 y=-1.5237
x=-0.88 y=-1.2097
x=-0.77 y=-0.9697
x=-0.66 y=-0.7761
x=-0.55 y=-0.6131
x=-0.44 y=-0.4708
x=-0.33 y=-0.3425
x=-0.22 y=-0.2236
x=-0.11 y=-0.1104
x= 0.00 y= 0.0000
x= 0.11 y= 0.1104
x= 0.22 y= 0.2236
x= 0.33 y= 0.3425
x= 0.44 y= 0.4708
x= 0.55 y= 0.6131
x= 0.66 y= 0.7761
x= 0.77 y= 0.9697
x= 0.88 y= 1.2097
x= 0.99 y= 1.5237
x= 1.10 y= 1.9648
x= 1.21 y= 2.6503
x= 1.32 y= 3.9033
x= 1.43 y= 7.0555
Найдено значений: 26

0 0

4 года назад

В паскале. Дам 85 баллов!!! Если сделаете. Даны длины сторон треугольника. Вычислить его площадь. Выполнить программу случаев, е

JanyV10bts [24]

Площадь треугольника вычисляется по формуле Герона:
var a,b,c,s,p:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:6:2);
end.
Для длин сторон а=5, b=5, с=6.
a=5
b=5
c=6
s= 12.00
Для длин сторон а=17, b=65, с=80.
a=17
b=65
c=80
s=288.00

0 0

1 год назад

1. Даны целые числа s₁, s₂, ..., sₓ. Определить: а) сколько раз среди них встречается максимальное; б) сколько раз среди них вст

Kolfes [50]

Int digits[], d,n;
int cnt_min=0; int cnt_max=0;
for(int i=0; i<x; i++) cin >> d;
int d_max = digits[0];
for(int i=0; i<x; i++) { if(d_max < digit[i]) d_max = digit[i];}
int d_min = digits[0];
for(int i=0; i<x; i++) { if(d_min > digit[i]) d_min = digit[i];}
for(int i=0; i<x; i++) { if(d_max < digit[i]) d_max = digit[i];}
for(int i=0; i<x; i++) { if(d_max == digit[i]) cnt_max++;}
for(int i=0; i<x; i++) { if(d_min == digit[i]) cnt_min++;}
cout << "min= " << cnt_min << " max= " << cnt_max << endl;

вторая задача - подумай сам, она почти аналогичная

0 0

1 год назад

Какой объём содержит сообщение, уменьшающее неопределенность знания 6 раз

виктор8519

По формуле Шеннона

log(2)6=2.5

2.5 бита информации уменьшают неопределённость знаний в 6 раз.

0 0

4 года назад