Статистика
Всего в нашей базе более 4 327 660 вопросов и 6 445 975 ответов!

1.Составить программу, которая увеличивает каждый элемент настоящей таблице х [1 .. 10] на 1. 2. составить программу, замены положительных

10-11 класс

элементов настоящей таблице х [1 .. 10] на 0.

3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.

4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.

Zarina0695 05 сент. 2014 г., 9:11:59 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Kazatin2010
05 сент. 2014 г., 11:47:15 (9 лет назад)

//первая программа

 

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.

Ответить

Другие вопросы из категории

7. Вставьте пропущенное слово, выбрав его из предложенного ниже списка.

Информационная модель - это целенаправленно отобранная информация об объекте, которая отражает наиболее существенные для исследователя ... этого объекта.
А) информация;
Б) законы функционирования;
В) отличительные особенности;
Г) свойства.

Для кодирования некоторой последовательности, состоящей из букв А, Б, В, Г и Д, решили использовать неравномерный двоичный код, позволяющий

однозначно декодировать двоичную последовательность, появляющуюся на приёмной стороне канала связи. Использовали код: А–1, Б–000, В–001, Г–011. Укажите, каким кодовым словом должна быть закодирована буква Д. Длина этого кодового слова должна быть наименьшей из всех возможных. Код должен удовлетворять свойству однозначного декодирования. 1) 00 2) 01 3)11 4) 010

Читайте также

Напишите прог-у на паскале... ПЛИИИИИИИИИИЗ 1)даны действительные числа a1, b1, c1, a2, b2, c2. Составьте программу, которая находит координаты точки

пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.

Составить алгоритм и соответствующую ему программу для определения максимального элемента в таблице А[1..N]. Определить величину этого элемента и его но

мер в таблице.Произвести отладку и проверить работу программы для произвольно заданных элементов таблицы. ПОЖАЛУЙСТА ПОМОГИТЕ ХОТЬ ПРОГРАММУ СОСТАВИТЬ!!! СРОЧНО)

1. Составить программу для нахождения наибольшего числа из трех чисел.

2. Составить программу для упорядоченное двух элементов по убыванию.

1)составьте программу вычисления суммы чисел в диапазоне от 45 до 115 45+....+115

2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N

------------------------ОПЕРАТОР WHILE

составьте программу,которая запрашивает значение элементов одномерного массива A,состоящего из 10 элементов,формирует и выводит на экран в строку данный

массив.Найти сумму определённого элемента;количество элементов,стоящих на нечетных местах;произведение элементов,кратных 5.



Вы находитесь на странице вопроса "1.Составить программу, которая увеличивает каждый элемент настоящей таблице х [1 .. 10] на 1. 2. составить программу, замены положительных", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.