Загрузка...

Informatics, 2 tasks (Pascal)

Thread in Studies created by Geniuszly Mar 18, 2021. 275 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 (15)
    2. architect
      avatarGeniuszly, если в рандоме стоит 300 например то можно присвоить любое значение больше 300 то есть min:= 301; min:= 2000;
      Mar 18, 2021
    3. Geniuszly Topic starter
      Mar 18, 2021
    4. architect
      avatarGeniuszly, Чтобы числа при выводе не слипались, если ты поставишь во втором случае 3, то будет что то вроде 300200145 вместо 300 200 145. Спрашивай еще что)
      Mar 18, 2021
    5. View the next comments (2)
  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...