Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 28.11.2013
Сообщений: 30
1

Создать и вывести массив У(8); элементы большие 1 занести в другой массив

10.05.2014, 21:46. Просмотров 1246. Ответов 1
Метки нет (Все метки)


Создать и вывести массив У(8), с элементами уk = ln(k) - 3k, где k = 1,2…. Выполнить дополнительно задание своего варианта поиска данных по некоторому критерию (признаку). Результат вывести на экран.Элементы массива большие, чем 1, занести в другой массив.. абс паскаль
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.05.2014, 21:46
Ответы с готовыми решениями:

Элементы массива большие, чем среднеарифметическое значение всех элементов, занести в другой массив
Элементы массива больше, чем среднеарифметическое значение всех элементов, занести в другой массив.

Элементы массива, которые больше 1 занести в другой массив
Добрый вечер, форумчане. Есть такая задача: создать первый массив который будет заполнен рандомными...

Скопировать элементы большие числа а в другой динамически созданный массив
Организовать ввод динамического массива размером N. Скопировать элементы большие числа а(а вводится...

Положительные элементы массива занести один за другим в другой массив
Положительные элементы массива занести один за другим в другой массив . Вычислить произведение...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
11.05.2014, 08:35 2
Лучший ответ Сообщение было отмечено inkognitik как решение

Решение

Цитата Сообщение от inkognitik Посмотреть сообщение
Элементы массива большие, чем 1, занести в другой массив
Таких элементов в массиве нет:
Pascal
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
const
  n = 8;
var
  y, z: array[1..n] of real;
  k, j: integer;
begin
  j:=0;
  writeln('Ìàññèâ Y:');
  for k:=1 to n do
  begin
    y[k]:=ln(k) - 3*k;
    write(y[k]:8:2);
    if y[k] > 1 then
    begin
      inc(j);
      z[j]:=y[k];
    end;
  end;
  writeln;
  if j=0 then writeln('Íåò ýëåìåíòîâ, óäîâëåòâîðÿþùèõ óñëîâèþ')
  else begin
    writeln('Ìàññèâ Z');
    for k:=1 to j do
      write(z[k]:8:2);
  end;
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.05.2014, 08:35

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Положительные элементы массива занести один за другим в другой массив.
Положительные элементы массива занести один за другим в другой массив. Вычислить произведение...

Перенести в другой массив все элементы, большие, чем среднее арифметическое
Найти среднее арифметическое положителных элементов массива A(11). Перенести в другой массив все...

Элементы находящиеся между максимальным и минимальным элементами массива занести в другой массив
Ввести одномерный массив с клавиатуры и элементы находящиеся между максимальным и минимальным...

Выбрать из одномерного массива длины 10 все четные элементы и занести их в другой массив
Всем привет! Нужна ваша помощь. На visual studio 19 надо написать программу на языке C++ с...

Получить из исходного другой массив, в который занести только положительные элементы в обратном порядке
Заполнить одномерный числовой массив целыми числами. Получить из него другой массив, в который...

Создать линейный массив, отсортировать его в другой массив, вывести адрес всех елементов
Помогите пожалуйста, за час нужно сдать , напишите код , только попроще создать линейный массив...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.