Сложить отдельно все положительные и отрицательные элементы массива отдельно

@arsalan · Регистрация: 17.11.2011

Студворк — интернет-сервис помощи студентам

Кому не лень помогите пожалуйста сделать эти задачи. Хотя бы несколько. Буду очень признателен.
1) Напишите программу, которая сначала вводит десять чисел в одномерный массив, а затем складывает отдельно все положительные элементы этого массива, отдельно отрицательные элементы и выдаёт полученные результаты.
2)Разработайте программу, которая будет вводить с клавиатуры 25 реальных чисел и сохранять их в некотором одномерном массиве. Затем у пользователя запрашивается ввод последнее введённое число среди введенных ранее элементов массива, и выдать соответствующее сообщение на экран
3)Напишите программу, которая вводит с клавиатуры 25 реальных чисел, организовывает их хранение в одномерном массиве, а затем определяет число положительных элементов данной последовательности и выводит результат на экран.
4)Напишите программу, которая вводит с клавиатуры 20 реальных чисел, организовывает их хранение в одномерном массиве, а затем определяет каких чисел в массиве больше, положительных или отрицательных. Не исключается случай равенства.
5)Напишите программу которая вводит с клавиатуры 15 целых чисел, организовывает их хранение в одномерном массиве, а затем определяет среднее арифметическое элементов массива. Результат выдаётся на экран пользователя.
6)Напишите программу которая вводит с клавиатуры 20 реальных чисел, организовывает их хранение в одномерном массиве, а затем определяет индекс и значение максимального элемента массива. Результат выдаётся на экран пользователя.
7)Напишите прорамму которая вводит с клавиатуры 30 символов, организовывает их хранение в одномерном массиве, а затем выводит содержимое массива в обратном порядке с указанием индекса каждого элемента.
8)Напишите программу которая вводит с клавиатуры 20 реальных чисел, организовывает их хранение в одномерном массиве, а затем определяет среднее арифметическое элементов с чётными индексами, и среднее арифметическое элементов с начетными номерами. Результат выдаётся на экран пользователя.
9)Дан одномерный массив целых чисел размерностью 20. Определите количество положительных групп в этом массиве.(груупа это последовательность состоящая из 2-х и более положительных чисел находящихся рядом.

@КонецСвета · 18.11.2011, 10:46

Хорошо бы каждую задачу в отдельной теме...
Для затравки первая:

Pascal

uses crt;
var a: array [1..10] of integer;
    i,n,sp,so: integer;
begin
writeln ('Нажмите 1, чтобы заполнить массив вручную');
writeln ('Нажмите другую цифру, чтобы массив был заполнен случайными числами');
readln (n);
if n=1 then
   begin
   write ('Введите ',i,' элемент массива');
   readln (a[i]);
   end
   else
       for i:=1 to 10 do
           a[i]:=random(21)-10;
sp:=0; so:=0;
writeln ('Дан массив');
for i:=1 to 10 do
    begin
    write (a[i],' ');
    if a[i]>0 then sp:=sp+a[i];
    if a[i]<0 then so:=so+a[i];
    end;
writeln;
writeln ('Сумма положительных = ',sp);
writeln ('Сумма отрицательных = ',so);
end.

@arsalan · 18.11.2011, 17:39 **[ТС]**

КонецСвета,спасибо

@КонецСвета · 18.11.2011, 19:30

Третья

Pascal

uses crt;
var a: array [1..25] of real;
    i,kp: integer;
begin
kp:=0;
for i:=1 to 25 do
   begin
   write ('Введите ',i,' элемент массива ');
   readln (a[i]);
   if a[i]>0 then inc(kp);
   end;
writeln;
writeln ('Количество положительных элементов = ',kp);
end.

Кстати, во второй сочершенно непонятно, что значит "Затем у пользователя запрашивается ввод последнее введённое число среди введенных ранее элементов массива"

@arsalan · 19.11.2011, 09:03 **[ТС]**

да ладно... третие тогда не надо

@КонецСвета · 19.11.2011, 11:19

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

третие тогда не надо

в смысле второе?!!! А то третье уже сделано!
А вот четвертое:

Pascal

uses crt;
var a:array [1..20] of real;
    i,kp,ko: integer;
begin
for i:=1 to 20 do
    begin
    write ('Введите ',i,' элемент массива ');
    readln (a[i]);
    if a[i]>0 then inc(kp);
    if a[i]<0 then inc(ko);
    end;
if kp>ko then writeln ('Количество положительных (',kp,') больше, чем отрицательных (',ko,').') else
   if ko>kp then writeln ('Количество отрицательных (',ko,') больше, чем положительных (',kp,').') else
      writeln ('Количество положительных (',kp,') и отрицательных (',ko,') равно');
end.

@arsalan · 19.11.2011, 17:52 **[ТС]**

ой... т.е. второе))перепутал
спс

@КонецСвета · 19.11.2011, 18:11

arsalan, в первой у меня "критическая" ошибка: не задан цикл для занесения данных в массив вручную. В десятую строку надо добавить

Pascal

1	for i:=1 to 10 do

Извини, невнимательность...

Добавлено через 2 минуты
пятая

Pascal

uses crt;
var a:array [1..15] of integer;
    i,sum: integer;
begin
for i:=1 to 15 do
    begin
    write ('Введите ',i,' элемент массива ');
    readln (a[i]);
    inc(sum,a[i]);
    end;
writeln ('Среднее арифметическое = ',sum/15:7:2);
end.

@arsalan · 19.11.2011, 18:25 **[ТС]**

КонецСвета, ясно

@КонецСвета · 19.11.2011, 18:34

шестая

Pascal

uses crt;
var a:array [1..20] of real;
    i,imax: integer;
    max: real;
begin
max:=-100000;
for i:=1 to 20 do
    begin
    write ('Введите ',i,' элемент массива ');
    readln (a[i]);
    if a[i]>max then
       begin
       max:=a[i];
       imax:=i;
       end;
    end;
writeln ('Максимальный элемент ',max,' под номером ',imax);
end.

@arsalan · 19.11.2011, 18:47 **[ТС]**

Pascal

1	max:=-100000;

а вот тут обезательно должно быть -100000???

@КонецСвета · 19.11.2011, 18:55

Просто перестраховываюсь, вдруг преподавателю захочется проверить, какой максимальый элемент найдет твоя программа в диапазоне от -1000 до -100

.
Есть и другой способ поиска максимального, когда изначально max назначается значение первого элемента массива, но тогда надо дважды цикл гонять - для заполнения и для поиска...
Кстати, еще и третий вариант пришел в голову, сейчас выложу.

Добавлено через 1 минуту

Pascal

uses crt;
var a:array [1..20] of real;
    i,imax: integer;
    max: real;
begin
write ('Введите 1 элемент массива ');
readln (a[1]);
max:=a[1];
imax:=i;
for i:=2 to 20 do
    begin
    write ('Введите ',i,' элемент массива ');
    readln (a[i]);
    if a[i]>max then
       begin
       max:=a[i];
       imax:=i;
       end;
    end;
writeln ('Максимальный элемент ',max,' под номером ',imax);
end.

@arsalan · 19.11.2011, 19:10 **[ТС]**

КонецСвета, все понятно) спс

@КонецСвета · 19.11.2011, 19:30

седьмая

Pascal

uses crt;
var a:array [1..30] of char;
    i: integer;
begin
for i:=1 to 30 do
    begin
    write ('Введите ',i,' элемент массива ');
    readln (a[i]);
    end;
writeln ('Итоговый массив ');
for i:=30 downto 1 do
    begin
    write (i:3);
    writeln (a[i]:3);
    end;
end.

@arsalan 1 / 1 / 0 Регистрация: 17.11.2011 Сообщений: 42
	19.11.2011, 19:10 [ТС]	13
	КонецСвета, все понятно) спс 0

@arsalan 1 / 1 / 0 Регистрация: 17.11.2011 Сообщений: 42
	18.11.2011, 17:39 [ТС]	3
	КонецСвета,спасибо 0

@arsalan 1 / 1 / 0 Регистрация: 17.11.2011 Сообщений: 42
	19.11.2011, 09:03 [ТС]	5
	да ладно... третие тогда не надо 0

@arsalan 1 / 1 / 0 Регистрация: 17.11.2011 Сообщений: 42
	19.11.2011, 17:52 [ТС]	7
	ой... т.е. второе))перепутал спс 0

@arsalan 1 / 1 / 0 Регистрация: 17.11.2011 Сообщений: 42
	19.11.2011, 18:25 [ТС]	9
	КонецСвета, ясно 0