Па паскале, ! с клавиатуры вводится массив из 10 элементов. увеличить все элементы кратные 5 на 2. вывести полученный массив. ввод осуществить в столбик с подсказкой. заранее !
Program p1; var a,b:integer; begin writeln ('Введите 2 числа'); readln (a,b); if a=b then writeln ('Числа одинаковые') else if a>b then begin writeln ('Наибольшее число ',a); writeln ('Наименьшее число ',b); end else begin writeln ('Наибольшее число ',b); writeln ('Наиментшее число 10 ',a); end; end.
program p2; var a,b,c,d:integer; begin writeln ('Введите 4 числа'); readln (a,b,c,d); if a<b then a:=b; if c<d then c:=d; if a<c then a:=c; writeln ('Наибольшее число ',a); end.
program p3; var a,b,v:integer; begin writeln ('Введите возрасты людей:'); write ('Антона - '); readln (a); write ('Бориса - '); readln (b); write ('Виктора - '); readln (v); if (a=b) and (a=v) then writeln ('Все люди одного возраста'); if (a=b) and (a>v) then writeln ('Антон и Борис старше Виктора'); if (a=b) and (a<v) then writeln ('Виктор старше всех') else if (v>a) and (v>b) then writeln ('Виктор старше всех'); if (b=v) and (b>a) then writeln ('Борис и Виктор старше Антона'); if (b=v) and (b<a) then writeln ('Антон старше всех') else if (a>v) and (a>b) then writeln ('Антон старше всех'); if (a=v) and (a>b) then writeln ('Антон и Виктор старше Бориса'); if (a=v) and (a<b) then writeln ('Борис старше всех') else if (b>v) and (b>a) then writeln ('Борис старше всех'); end.
Системой счисления называется совокупность приемов наименования и записи чисел.Каждое число изображается в виде последовательности цифр, а для изображения каждой цифры используется некоторый физический элемент, который может находиться в одном из нескольких устойчивых состояний.Для проведения расчетов в повседневной жизни общепринятой является десятичная система счисления. В этой системе для записи любых чисел используются только десять различных знаков (цифр): 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. Эти цифры введены для обозначения десяти последовательных целых чисел от 0 до 9. Обозначая число «ДЕСЯТЬ», мы используем уже имеющиеся цифры «10». При этом значение каждой из цифр поставлено в зависимость от того места (позиции), где она стоит в изображении числа. Такая система счисления называется позиционной. (Примером непозиционной системы счисления является римская система счисления). В десятичной системе счисления десять единиц каждого разряда объединяются в одну единицу соседнего, более старшего разряда. Так, число 123,45 можно записать в виде выражения 123,45 = 1·102+2·101+3·100+4·10-1+5·10-2. Аналогично десятичная запись произвольного числа x в виде последовательности цифр anan-1...a1a0,a-1a-2...a-m основана на представлении этого числа в виде полинома: x = an·10n+an-1·10n-1+...+a1·101+a0·100+ +a-1·10-1+a-2·10-2+...+a-m·10-m где ai - десятичные цифры. При этом запятая, отделяющая целую часть от дробной, является, по существу, началом отсчета. Число P единиц какого-либо разряда, объединяемых в единицу более старшего разряда, называется основанием системы счисления, а сама система счисления называется P-ичной. Так, в десятичной системе счисления основанием системы является число 10. Для записи произвольного числа в P-ичной системе счисления достаточно иметь P различных цифр. Цифры, служащие для обозначения чисел в заданной системе счисления называютсябазисными.Запись произвольного числа x в позиционной системе счисления с основанием P в виде полинома: x = an·Pn+an-1·Pn-1+...+a1·P1+a0·P0+a-1·P-1+a-2·P-2+...+a-m·P-m Каждый коэффициент данной записи может быть одним из базисных чисел и изображается одной цифрой. Числа в P-ичной системе счисления записываются в виде перечисления всех коэффициентов полинома с указанием положения запятой. В качестве базисных чисел обычно используются числа от 0 до P-1 включительно. Для указания того, в какой системе счисления записано число, основание системы указывается в виде нижнего индекса. В десятичной записи, например 12,43810.
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
write ('Введите ',i:2,' элемент массива и нажмите Enter ');
read (a[i])
end;
writeln;
write ('Массив ');
for i:=1 to 10 do write (a[i],' ');
writeln;
write ('Массив ');
for i:=1 to 10 do
begin
if a[i] mod 5 = 0 then a[i]:=a[i]+2;
write (a[i],' ')
end
end.
Объяснение:
Сначала в строку выводится введённый массив, потом массив после изменений.