Загрузка...

Informatics, 2 tasks (Pascal)

Thread in Studies created by Geniuszly Mar 18, 2021. 273 views

  1. Geniuszly
    Geniuszly Topic starter Mar 18, 2021 Banned 88 Jan 19, 2021
    1) дан произвольный массив, все элементы, которые кратны 5 или 3 увеличить на 10, остальные увеличить на 100.

    2) Дан произвольный массив, создать новый массив из тех элементов исходного массива, который больше чем max+mix/2.
     
    Mar 18, 2021
  2. architect
    architect Mar 18, 2021 15 Apr 15, 2020
    Who's liked this post (1)
    Отсыпишь что - нибудь?
     
    Mar 18, 2021
    1. View previous comments (17)
    2. architect
      avatarGeniuszly, Чтобы числа при выводе не слипались, если ты поставишь во втором случае 3, то будет что то вроде 300200145 вместо 300 200 145. Спрашивай еще что)
      Mar 18, 2021
    3. architect
      Mar 18, 2021
    4. Geniuszly Topic starter
      Mar 18, 2021
  3. XXXXXXXXXX
    XXXXXXXXXX Mar 18, 2021
    Who's liked this post (1)
    1.
    const
    nmax=100;
    var
    a: array[1..nmax] of integer;
    n,i,k: integer;
    begin
    write('Сколько элементов в массиве? ');
    readln(n);
    k:=0;
    writeln('Массив:');
    for i:=1 to n do
    begin
    a:=random(99)+1;
    write(a,' ');
    if (a mod 3=0)or(a mod 5=0) then a+=10
    else begin a+=100; end;
    end;
    writeln;
    writeln('Массив после:');
    for i:=1 to n do write(a,' ');
    end.
     
    Mar 18, 2021
Loading...