задачи на векторы

[xyz-xyz]

Надежда, ещё раз: у Вас нет теста, у Вас экзамен.

[TinMan]

Сообщение от nadya88

xyz-xyz мне допуск к тестированию нужен.Надо контрольную сделать.

Надь, xyz-xyz усиленно тебе намекает на что-то, что ты выпускаешь из виду.. ))
Ищи его среди своих знакомых (скорее всего, преподавателей).

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

[анастасия18100]

Контрольная работа 1

1.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Посчитать количество элементов, которые делят 120. Результаты вывести на экран.

1.2. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора сумму его цифр. Результаты вывести на экран.
Контрольная работа 2

2.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Удалить из вектора все элементы, которые являются простыми числами. Результаты вывести на экран.

2.2. С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров строк, в которых есть хотя бы один нулевой элемент. Результаты вывести на экран.

[ByAlex]

Анастасия, нехорошо в чужие темы лезть, для этого нужно создавать новую тему!
Вот первая -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  Vec:array of Integer;
  n,i,kol:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  kol:=0;
  Write('Input the length of vector = ');
  Readln(n);
  SetLength(Vec,n);
  Writeln('Input the elements:');
  for i:=0 to n-1 do
  begin
    write('Vec[',i+1,'] = ');
    readln(Vec[i]);
  end;
  Writeln;
  for i:=0 to n-1 do
    if (120 mod Vec[i] = 0) then
      inc(kol);
  Writeln('Result = ',kol);
  Vec:=nil;
  readln;
end.

[анастасия18100]

я в программирования ничего не понимаю. ничью тему забирать не собираюсь))) Вам большое спасибо за помощь

[ByAlex]

Сообщение от анастасия18100

я в программирования ничего не понимаю. ничью тему забирать не собираюсь))) Вам большое спасибо за помощь

Если нужны остальные задачи, пиши в личку!

[irenchik31]

1.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Посчитать среднее арифметическое элементов, которые оканчиваются на цифру 1. Результаты вывести на экран.
1.2. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора произведение его цифр. Результаты вывести на экран.
Контрольная работа 2
2.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Удалить из вектора все элементы, которые являются составными числами. Результаты вывести на экран.
2.2. С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров столбцов, в которых все элементы отрицательные. Результаты вывести на экран.

[irenchik31]

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