Перенос данных из массива А в массив Б - Turbo Pascal

  1. есть 2 массива, нужно чтоб числа которые делятся на 5 и не делятся на 7 были перенесены или скопированы из массива А в массив В, а потом числа которые были заполнили массив В были суммированы. как это сделать? Вот программа :


textual

Код к задаче: «Перенос данных из массива А в массив Б - Turbo Pascal»

program Lab7;
uses
  crt;
const
  nmax=16200;
var
  A,B: array[1..nmax] of integer;
  k1, k2, k3, s, n, i: integer;
begin
  Clrscr;
  randomize;
  repeat
    write('Ââåäèòå Г°Г*çìåð Г¬Г*Г±Г±ГЁГўГ* n (n < ',nmax,'): ');
    readln(n);
    if n > nmax then writeln('ÏðåâûøåГ* äîïóñòèìûé Г°Г*çìåð Г¬Г*Г±Г±ГЁГўГ*');
  until n < nmax;
  writeln('ГЊГ*Г±Г±ГЁГў A');
  for i := 1 to n do
  begin
    A[i] := -99 + random(199);
    write(A[i]:4);
    if (A[i] mod 5=0) or (A[i] mod 7<>0) then
    begin
      inc(k1);
      B[k1]:=A[i];
      s:=s+B[k1];
    end;
    if A[i] mod 5=0 then inc(k2);
    if A[i] mod 7<>0 then inc(k3);
  end;
  writeln;
  writeln('ГЊГ*Г±Г±ГЁГў B:');
  for i:=1 to k1 do write(B[i]:4); writeln;
  writeln('ÑóììГ* ýëåìåГ*òîâ = ',s);
  writeln('ГЉГ°Г*ГІГ*ûõ 5: ',k2);
  writeln('ГЌГҐ ГЄГ°Г*ГІГ*ûõ 7: ',k3);
  readln;
end.

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

6   голосов, оценка 3.667 из 5



Похожие ответы
  1. Дано натуральное число n, входной поток данных: действительные числа a1,a2,a3, ... , aN. Получите удвоенную сумму всех положительных членов входного потока данных a1,a2,a3, ... , aN. Составьте код программы и блок-схему.

  1. Доброго времени суток господа программисты. У меня возникла проблема написания программы в Паскале. Буду краток. Паскаль для меня это небо и земля, он мне никогда не давался и приходилось как то выкручиваться. Если есть знатоки в этом, буду признателен. Так вот собственно задача: Дан файл положительных целых чисел состоящий из нескольких последовательностей чисел, каждая из которых оканчивается на 0. Вывести в выходной файл эти последовательности чисел, во внутри каждой последовательности числа должны идти в обратном порядке. p.s Набросков нету, т.к я язык знаю, но не умею его применять :c

  1. всем здруствуйте помогите с некоторыми аспектами я уже разобрался.Создать систему обработки данных однотабличной базы, состоящей из записей следующего типа:

  1. Точное условие: При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N слагаемых заданного вида, а также сумму тех слагаемых, которые по абсолютной величине больше E. Для второго случая выполните суммирование для двух значений E, отличающихся на порядок, и при этом определите количество слагаемых, включенных в сумму. Сравните результаты с точным значением функции, для которой данная сумма определяет приближенное значение при x, лежащем в интервале (–R, R).Что нужно сделать: обработать последовательность слагаемых данных на фото под буквой h.Что уже есть: есть вот такой вот код, который работает, но , как мне кажется, некорректно. Буду безмерно благодарен, если что-то сможет сделать его проверку и если найдутся ошибки( а что-то мне подсказывает, что найдутся), то ткнуть в них носом.

  1. Заколдованный принц нашел 4 волшебных палочки, длины которых a,b,c и d. Чтобы расколдоваться, ему нужно из них построить «волшебный треугольник» с наибольшим периметром, а затем встать внутрь этого треугольника. Напишите программу, которая определяет, из каких конкретно волшебных палочек принц должен построить данный треугольник. Формат входных данных: С клавиатуры вводится четыре положительных числа через пробел- a,b,c и d, которые обозначают длины палочек. Формат выходных данных: На экран вывести длины палочек, из которых можно построить треугольник с максимальным периметром в алфавитном порядке перечисления их длин через пробел. Если ни одного треугольника построить нельзя, программа должна вывести слово «NO».

  1. создать функцию,которая для двух данных чисел определяет в каком числе произвольных чисел больше

  1. можно ли сделать одну целую таблицу,чтоб она выводила все i и соответствующие ей y y:=\sum_{i=1}^{n=10} e^i

  1. Реализуйте структуру данных "стек". Напишите программу, содержащую описание стека и моделирующую работу стека, реализовав все указанные здесь методы. Программа считывает последовательность команд и в зависимости от команды выполняет ту или иную операцию. После выполнения каждой команды программа должна вывести одну строчку. Возможные команды для программы: push n Добавить в стек число n (значение n задается после команды). Программа должна вывести ok. pop Удалить из стека последний элемент. Программа должна вывести его значение. back Программа должна вывести значение последнего элемента, не удаляя его из стека. size Программа должна вывести количество элементов в стеке. clear Программа должна очистить стек и вывести ok. exit Программа должна вывести bye и завершить работу. Входные данные Команды управления стеком вводятся в описанном ранее формате по 1 на строке. Гарантируется, что набор входных команд удовлетворяет следующим требованиям: максимальное количество элементов в стеке в любой момент не превосходит 100, все команды pop и back корректны, то есть при их исполнении в стеке содержится хотя бы один элемент. Выходные данные Требуется вывести протокол работы со стеком, по 1 сообщению в строке Примеры входные данные push 3 push 14 size clear push 1 back push 2 back pop size pop size exit выходные данные ok ok 2 ok ok 1 ok 2 2 1 1 0 bye

  1. Составить программу для решения этого кода с использованием типа данных «объект».