Лучшие Ответы

• 

  Demians

  06.06.2020

  4,4(83 оценок)

  var i:integer;

  Begin

    for i:= 33 to 255 do

      writeln(i,' = ', chr(i));

  End.

• Открыть все ответы
• 

  AnastasiaStoyn

  22.12.2022

  4,5(7 оценок)
  1)Program massiv;

  Var mas:array[1..20] of integer;

  a,b,i,sum:integer;

  Begin

  sum:=0;

  For i:=1 To 20 Do

  begin

  mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}

  write(mas[i],' ');

  end;

  Writeln('Введите a,b');

  Readln(a,b);

  For i:=1 To 20 Do

  begin if (mas[i]>a) and (mas[i]<b) Then sum:=sum+mas[i]; end; Writeln(sum); end.    2)  Program massiv; Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin For i:=1 To 20 Do begin mas[i]:= random(15); write(mas[i],' '); end; Writeln; min:=30000; max:=0; For i:=1 To 15 Do begin if mas[i]>max Then max:=mas[i]; if mas[i]<min Then min:=mas[i]; end; pr:=min*max; Writeln(pr); end.  3)Program massiv;Var mas:array[1..20] of integer; a,b,i,k:integer;BeginFor i:=1 To 20 Dobegin mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');end;Writeln('Введите a,b,k');Readln(a,b,k);i:=1;While i<>20 Dobeginif (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;end;　end. 4)Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin randomize; For i:=1 To 20 Do begin mas[i]:= random(100)+1; write(mas[i],' '); end; Writeln; pr:=1; For i:=1 To 15 Do begin pr:=pr*mas[i]; end; Writeln(pr); end.
• 

  iluza3

  22.12.2022

  4,4(83 оценок)
  1)
  uses crt;
  const size = 10;
  var a:array [1..size] of integer;
       i,p:longint;
  begin
    p:=1;
    randomize;
    for i:=1 to size do
      begin
        a[i]:=random(20);
        write (a[i],' ');
        if (a[i] mod 3 = 0) then p:=p*a[i];
      end;
    writeln;
    writeln (p);
  end.
  
  2)
  uses crt;
  const size = 10;
  var a:array [1..size] of integer;
       i:integer;
       s:real;
  begin
    s:=0;
    randomize;
    for i:=1 to size do
      begin
        a[i]:=random(4)+1;
        write (a[i],' ');
        s:=s+a[i];
      end;
    writeln;
    s:=s/size;
    writeln (s);
  end.