1) дан произвольный массив, все элементы, которые кратны 5 или 3 увеличить на 10, остальные увеличить на 100. 2) Дан произвольный массив, создать новый массив из тех элементов исходного массива, который больше чем max+mix/2.
Geniuszly, const n = 5; var a:array[1..n] of integer; // Объявляем массив i, g:integer; // Объявляем переменные для циклов begin for i:= 1 to n do begin // Тут мы с помощью функции рандом присваиваем значения a[i]:= random(100); // каждому элементу, то есть a[1] = 20, a[2] = 37 и тд Write(a[i]:3); // Тут выводим эти элементы end; Writeln(); // Делаем отступ for i:= 1 to n do begin if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then // Условие если значение делится a[i]:= a[i] + 10 // на 5 или 3 на цело то мы прибавляем к этому значению 10 else // Например a[1] = 36 36 делится на 3 значит в итоге получается 46 a[i]:= a[i] + 100; // Если не делится то прибавляем 100 Write(a[i]:4); // Опять выводим end; Writeln(); end. Код const n = 5; var a:array[1..n] of integer; // Объявляем массив i, g:integer; // Объявляем переменные для циклов begin for i:= 1 to n do begin // Тут мы с помощью функции рандом присваиваем значения a[i]:= random(100); // каждому элементу, то есть a[1] = 20, a[2] = 37 и тд Write(a[i]:3); // Тут выводим эти элементы end; Writeln(); // Делаем отступ for i:= 1 to n do begin if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then // Условие если значение делится a[i]:= a[i] + 10 // на 5 или 3 на цело то мы прибавляем к этому значению 10 else // Например a[1] = 36 36 делится на 3 значит в итоге получается 46 a[i]:= a[i] + 100; // Если не делится то прибавляем 100 Write(a[i]:4); // Опять выводим end; Writeln(); end.
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.