1.Составить программу, которая увеличивает каждый элемент настоящей таблице х [1 .. 10] на 1. 2. составить программу, замены положительных
10-11 класс
|
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
//первая программа
var
x:array[1..10] of integer;
i:integer;
begin
for i := 1 to 10 do
begin
write('x[', i, '] = ');
readln(x[i]);
inc(x[i]);
end;
writeln;
writeln('Result');
for i := 1 to 10 do
write(x[i], ' ');
readln;
end.
//вторая программа
var
x:array[1..10] of integer;
i:integer;
begin
for i := 1 to 10 do
begin
write('x[', i, '] = ');
readln(x[i]);
if x[i] > 0 then
x[i] := 0;
end;
writeln;
writeln('Result');
for i := 1 to 10 do
write(x[i], ' ');
readln;
end.
// третья программа
var
x:array[1..10] of integer;
i:integer;
begin
for i := 1 to 10 do
begin
write('x[', i, '] = ');
readln(x[i]);
if x[i] < 0 then
x[i] := x[i] * x[i];
end;
writeln;
writeln('Result');
for i := 1 to 10 do
write(x[i], ' ');
readln;
end.
// четвертая программа
var
x:array[1..10] of integer;
i:integer;
begin
for i := 1 to 10 do
begin
write('x[', i, '] = ');
readln(x[i]);
if x[i] > 10 then
x[i] := x[i] + 2;
end;
writeln;
writeln('Result');
for i := 1 to 10 do
write(x[i], ' ');
readln;
end.
Другие вопросы из категории
Информационная модель - это целенаправленно отобранная информация об объекте, которая отражает наиболее существенные для исследователя ... этого объекта.
А) информация;
Б) законы функционирования;
В) отличительные особенности;
Г) свойства.
однозначно декодировать двоичную последовательность, появляющуюся на приёмной стороне канала связи. Использовали код: А–1, Б–000, В–001, Г–011. Укажите, каким кодовым словом должна быть закодирована буква Д. Длина этого кодового слова должна быть наименьшей из всех возможных. Код должен удовлетворять свойству однозначного декодирования. 1) 00 2) 01 3)11 4) 010
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
мер в таблице.Произвести отладку и проверить работу программы для произвольно заданных элементов таблицы. ПОЖАЛУЙСТА ПОМОГИТЕ ХОТЬ ПРОГРАММУ СОСТАВИТЬ!!! СРОЧНО)
2. Составить программу для упорядоченное двух элементов по убыванию.
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
массив.Найти сумму определённого элемента;количество элементов,стоящих на нечетных местах;произведение элементов,кратных 5.