Переписать положительные элементы массива X (30) и Y (30) в массив Z - Turbo Pascal

  1. Переписать положительные элементы массива X(30) и Y(30) в массив Z. Заполнение массива Z в подпрограмме.


textual

Код к задаче: «Переписать положительные элементы массива X (30) и Y (30) в массив Z - Turbo Pascal»

var
  x, y: array[1..30] of integer;
  i, size: byte;
  z: array of integer;
 
procedure plus(i: integer);
begin
  if i > 0 then 
  begin
    size := size + 1;
    SetLength(z, size);
    z[size - 1] := i;
  end;
end;
 
begin
  size := 1;
  Randomize;
  write('Массив x: ');
  for i := 1 to 30 do
  begin
    x[i] := Random(-100, 100);
    write(x[i]:4);
    plus(x[i]);
  end;
  writeln;
  write('Массив y: ');
  for i := 1 to 30 do
  begin
    y[i] := Random(-100, 100);
    write(y[i]:4);
    plus(y[i]);
  end;
  writeln;
  write('Массив z: ');
  for i := 1 to size - 1 do
    write(z[i]:4);
end.

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.143 из 5



Похожие ответы
  1. Задан текстовый файл. Переписать у файл g все строчки файла f, которые состоят с четного количества слов.

  1. Помогите, пожалуйста. Задали написать вот такую программу "В текстовом файле специальные термины выделены кавычками. Переписать файл так, чтобы термины выделялись прописными буквами." А я в этом полный чайник. Уже, конечно же, начал изучать соответсвующую литературу, но увы, как сделать это на данном этапе совершенно не знаю. Буду рад любой помощи.

  1. Дан массив. Если элементы выше ноля надо заменить их средним арифметическим значением всех элементах массива.

  1. Переписать в массив Y положительные и в массив Z отрицатель- ные элементы массива X[N]. Помогите пожалуйста с масивами этими) я в них ничего не понимаю. Напишите программу. Буду очень признателен вам)

  1. Преобразовать массив, заменив все отрицательные числа на -1, а положительные на +1. помогите

  1. Дан текстовый файл f. Переписать в файл g все строки файла f, содержащие более 30 символов. Файл f.txt создается пользователем.Нужно перевести с С++ и изменить немного под мою задачку)C++1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 #include #include #include #include #include   using namespace std;   int main (){   ifstream in("test.txt"); // Открыли файл   ofstream out("out.txt");   //Проверка на ошибки   if(!in || !out){     cout<<"Failed to open file\n";     system ("PAUSE");     return 1;   }   string buf; // переменная, в которую будем считывать данные   while(!in.eof()){     getline(in,buf); // Считали     if(buf.size()>30)       out<

  1. Здравствуйте! Прошу помощи. Прошу подправить код. Не совсем корректно выводит. Вот задание.Среди столбцов заданной целочисленной матрицы, содержащих ТОЛЬКО такие элементы, которые по модулю не больше числа Р, найти столбец с минимальной суммой элементов Отсортировать положительные элементы этого столбца по убыванию.

  1. 2. Сформируйте одномерный массив из n элементов. Выведите его на экран в строку. Затем выведите на экран положительные элементы массива, уменьшенные в 19 раз.

  1. Переписать в матрице 7×7 строки в обратном порядке. Отправил преподу код, он ответил, что "Надо в реальной матрице выполнить перестановку строк, а затем показать её на экране." Помогите пожалуйста.

  1. Уже всю голову пробил, в чем ошибка? По сути программа должна выводить 2 массива - начальный и переработанный. на деле выходит, что получаю что-то в роде 37117 2 0 0 Вот само задание. Ниже мой вариант кода Дан массив байтов. Сформировать другой массив, в который нечетные элементы из первого массива переписать без изменений, а к четным прибавить 1.