Одномерные массивы

[Артём555]

1)Дан массив целых чисел,состоящий из 15 элементов.Заполнить его с клавиатуры.Найти:
-Сумму положительных чисел,значения которых не меньше10
-вывести индексы тех элементов значения которых кратны 3 и 5
-определить есть ли пара соседних элементов с суммой,равной заданному числу
-заменить перый отрицательный элемент нулём
-умножить все элементы,кратные 3,на третий элемент массива
2)Дан массив целых чисел(n=10) запосленный случайными числами из промежутся [-40,30]
-удалить из него все элементы,которые состоят из одинаковых цифр(включая однозначные).
-вставить число К перед всеми элементами, в которых есть цифра 1 (К с клавиатуры вводится)
-переставить три первые и последние элемента местами,сохраняя их следование

плохо дружу с массивами хелп плиЗ

[kakawkin]

Вот написал - длжны быть все правельно. Написал для первого пункта только:

program tt;
var a:array[1..15] of integer;
begin
 for i:=1 to 15 do
  begin
   write('a[',i,']=');
   readln(a[i]);
  end;
end.  


-Сумму положительных чисел,значения которых не меньше10
for i:=1 to 15 do if a[i]>=10 then s:=s+a[i] else s:=s+0;
  
  
-вывести индексы тех элементов значения которых кратны 3 и 5
for i:=1 to 15 do if (a[i] mod 3) and (a[i] mod 5) then writeln(a[i]);
  
  
 -определить есть ли пара соседних элементов с суммой,равной заданному числу
for i:=1 to 15 do if a[i]+a[i+1]=s then write(a[i],'+',a[i+1],' = ',s)

-заменить перый отрицательный элемент нулём
for i:=1 to 15 do if a[i]<0 then a[i]:=0;
    
	
-умножить все элементы,кратные 3,на третий элемент массива
for i:=1 to 15 if (a[i] mod 3)=0 then begin s:=a[i]*a[3];a[i]:=s; end;

C ТЕБЯ + !

[kakawkin]

-переставить три первые и последние элемента местами,сохраняя их следование
var a;array[1..10] of integer;b:array[1..10] of integer;
begin
afor i:=1 to 10 do b[i]:=a[i];
a[1]:=b[10];
a[2]:=b[9];
a[3]:=b[8];
a[8]:=b[3];
a[9]:=b[2];
a[10]:=b[1];

[kakawkin]

а для задачи "вставить число К перед всеми элементами, в которых есть цифра 1 (К с клавиатуры вводится)"

Есть пример другой давно писал ее:
program char;
var a:array[1..n] of char;i:integer;
begin
for i:=1 to 7 do readln(a[i]);
for i:=1 to 7 do
if a[i]='A' then .... else ....
....

Т.е. тут идет проверка символов, и если в веденной строке под определенным индексом есть символ А то ....

Измени под числа и делов то

[Филантроп]

var a;array[1..10] of integer;b:array[1..10] of integer;
begin
afor i:=1 to 10 do b[i]:=a[i];
a[1]:=b[10];
a[2]:=b[9];
a[3]:=b[8];
a[8]:=b[3];
a[9]:=b[2];
a[10]:=b[1];

может лучше так

program tt;
var a:array[1..10] of integer;
i,k,t:integer;
begin
for i:=1 to 10 do
begin
write('a[',i,']=');
readln(a[i]);
end;
end.
k:=2;
for i:=1 to 3 do
begin
t:=a[i];
a[i]:=a[n-k];
a[n-k]:=t
dec(k);
end;
writeln;
for i:=1 to 10 do
write(a[i]:6);
readln;end.

[kakawkin]

если честно я не понял ваше решение - напишите задачу полностью - тогда будет понятнее:
program tt;
var a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
write('a[',i,']=');
readln(a[i]);
end;
end.

Вот сюда впеши свое решение

[1992]

В массив введены результаты кол-во садков:
Вывести номер месяца
Название месяца
Среднее кол-во осадков

[kakawkin]

создай новую тему - помогу решить а так извини

[прохендос]

1.Дан массив целых чисел,состоящий из 10 элементов.Заполнить его с клавиатуры.
найти:
-удвоенную сумму положительных элементов.
-вывести индексы тех элементов,значения которых больше,предыдушего элемента(начиная со второго)
2.Определить,есть ли 2 пары соседних элементов с одинаковыми знаками.