Задачи на Visual Basic на массивы

[Анастасия12]

Подскажите как решить задачи на Visual Basic
1. Определить количество 7 в массиве.
2. Определить минимальный элемент массива и индекс первого минимального элемента.
3. Определить максимальный элемент массива и индекса последнего максимального элемента.
4. Вторую половину массива продублировать элементами первой половины массива.

[Stilet]

Определить количество 7 в массиве.

7 чего?
Покажи как ты массив вводишь.

[Smitt&Wesson]

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

7 чего?
Покажи как ты массив вводишь.

Простите пофлужу. Но вопрос убил. Я пацталом...
2. Определить минимальный элемент массива и индекс первого минимального элемента.
На Басике уже давно не пишу, а на С++т будет так:
for(i=0, i<8, i++)
if(m[i] < s) break;

На дальше меня не хватило . Днюха ещё не закончилась...

[Анастасия12]

незнаю...так в задание написанно...ну помогите пожалуйста

[Анастасия12]

ааа...блин ну напишите пожалуйста полную программу хоть к какой нибудь задаче) очень нужно((

[Smitt&Wesson]

Сообщение от Анастасия12

незнаю...так в задание написанно...ну помогите пожалуйста

Обязательно поможем. Только завтра с утра хорошо? Вопросы у Вас не сложные, но меня друзья поздравляют уже который день . Протрезвею отпишусь. .

[Анастасия12]

хорошо, завтра, примерно во сколько??

[Poma][a]

это 1

var
         a : array [1..100] of Integer;
         i, n : Integer;

begin
         ReadLn (n);
        
         for i := 1 to n do
               ReadLn (a[i]);
         
         count := 0;
         for i := 1 to n do
               if a[i] = 7 then
                     Inc (count);
            
         WriteLn (count)
end.

это 2

var
   a : array [1..100] of Integer;
   n, i, min, smin : Integer;

begin
     ReadLn (n);

     for i := 1 to n do
         ReadLn (a[i]);

     min := a[1];
     smin := 1;
     for i := 1 to n do
         if a[i] < min then begin
            min := a[i];
            smin := i;
         end;

     WriteLn (min, ' ', smin)
end.

это 3

var
   a : array [1..100] of Integer;
   n, i, max, smax : Integer;

begin
     ReadLn (n);

     for i := 1 to n do
         ReadLn (a[i]);

     max := a[1];
     smax := 1;
     for i := 1 to n do
         if a[i] >= max then begin
            max := a[i];
            smax := i;
         end;

     WriteLn (max, ' ', smax)
end.

это 4

var
   a : array [1..100] of Integer;
   n, i, max, smax : Integer;

begin
     ReadLn (n);

     for i := 1 to n do
         ReadLn (a[i]);

     for i := n div 2  + 1 to n do
         a[i] := a[i - n div 2 ];

     for i := 1 to n do
         WriteLn (a[i]);
end.

З.Ы. да щас может решу, если дискография кьюров не закончится)
З.Ы.Ы. Smitt&Wesson с днем рождения)

[Анастасия12]

мне не в паскале недо это решить а в Visual Basic

[Poma][a]

не посмотрел... НО вы создали тему в разделе ПАСКАЛЬ