Дан массив целых чисел. найти: а) сумму элементов массива, которые не превышают 20. б)сумму нечетных элементов.

1)  var   a: array[0..10] of integer;   i, s: integer; begin     for i : = 1 to 10 do   begin     a[i] : = random(60);     write(a[i], ' ');     if a[i]< =20 then s: =s+a[i]; end;   writeln;   writeln(s); end.2)  var   a: array[0..10] of integer;   i, s: integer; begin     for i : = 1 to 10 do   begin     a[i] : = random(60);     write(a[i], ' ');   // if (i mod 2=1) then s: =s+a[i]; раскоментируй, если сумму нужно искать среди нечетных номеров элементов.     // if (a[i] mod 2=1) then s: =s+a[i]; раскоментируй, если сумму нужно искать среди самих нечетных элементов.   end;     writeln;   writeln(s); end.

var x,x1,x2,x3: integer; //x1- 1 число, х2- 2 число, х3 - 3 число

begin

  randomize;

  x: =random(1000)+10;

  if x div 100 > 0 then begin x1: =x div 100;

                                          x2: =(x mod 100) div 10;

                                          x3: =(x mod 100) mod 10;

                                          writeln(x,', ',x3,x2,x1);

                                  end

                          else writeln(x);

end.

     

 

Трехзначные четные числа могут быть получены перечислением трехзначных чисел от 100 до 998 через одно, т.е. 100, 102, 104, - это проще и быстрее, чем брать каждое и проверять его на четность. // pascalabc.net 3.3, сборка 1607 от 31.12.2017 // внимание! если программа не работает, обновите версию! begin   var s: =range(100,998,2).where(t-> t mod (t div 100 + t mod 10)=0);   var i: =0;   foreach var n in s do begin       print(n); i+=1;       if i=4 then begin i: =0; writeln end       end;   if i< > 0 then writeln; end. результат 100 102 108 110 120 126 130 132 140 150 160 162 170 180 190 192 196 198 200 204 210 212 216 220 230 232 234 240 250 252 256 260 264 270 272 280 290 292 294 296 300 306 308 330 360 364 390 396 400 402 408 420 424 432 440 460 462 464 468 480 492 500 504 506 510 520 530 532 540 550 560 570 580 590 594 598 600 630 632 636 658 660 672 690 696 700 702 704 770 792 800 804 826 840 848 864 880 896 900 902 918 990