Написать программу в Паскале.
10-11 класс
|
Указания: Заполните одномерный числовой массив А[15] случайными целыми числами в интервале [18;15].Выведите значения элементов массива сначала в столбик,а затем в строку,причем на каждый элемент отведите 4 позиции.
Задача: Заменить элементы массива,которые кратны пяти,на значение максимального элемента массива.
const n=15;
var
a:array[1..n]of integer;
i,i_max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(4)+15;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
write(a[i]:4);
writeln;
i_max:=1;
for i:=2 to n do
if a[i]>a[i_max]then
i_max:=i;
for i:=1 to n do
if a[i]mod 5=0 then
a[i]:=a[i_max];
for i:=1 to n do
write(a[i]:4);
end.
Другие вопросы из категории
математической олимпиаде участвовали 14 девочек и 54 мальчика, а всего 70 человек. Дедушка очень удивился и подумал, что мальчик разучился считать. Но Коля настаивал, что он подсчитал всё верно. В системе счисления с каким основанием он вёл счёт? Ответ запишите числом.
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
http://primat.org/index/0-128 вот сайт что бы написать программу.
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.