Вычислить сумму отрицательных элементов массива и найти максимальный по модулю элемент

@Линна · Регистрация: 06.11.2011

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

в одномерную массиве, из n действительных элементов вычислять сумму отрицательное элементов массива и найти максимальный по модулю элемент.

vetvet · 06.11.2011, 19:08

Линна, на каком языке?

@Линна · 06.11.2011, 19:14 **[ТС]**

Турбо Паскаль

Комментарий модератора

Тему перенес в Турбо Паскаль.

@pudz · 06.11.2011, 20:06

Сообщение от Линна

в одномерную массиве, из n действительных элементов вычислять сумму отрицательное элементов массива и найти максимальный по модулю элемент.

Pascal

program demo;
uses crt;
const n=6;
var a: array[1..n] of integer;
max,i,b: integer;
begin
clrscr;
b:=0;
randomize;
for i:=1 to n do
begin
a[i]:=random(i)-5;
write(a[i],' ');
if a[i]<0 then
b:=b+a[i];
end;
max:=a[1];
for i:=2 to n do
begin
if a[i]>max then
max:=a[i];
end;
writeln('summa otricatelnih chisel = ',b,'  maxsimalnoe chislo = ',max);
readln;
end.

@Линна · 07.11.2011, 23:19 **[ТС]**

Програмка!
Порівняти кількість букв А,в двох текстових файлів.
Турбо Паскаль.

@Rom41k95 · 07.11.2011, 23:21

Шо закладено під словом "порівняти" ? Оо

@Линна · 07.11.2011, 23:26 **[ТС]**

нічого

@Rom41k95 · 07.11.2011, 23:27

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

@Линна 0 / 0 / 0 Регистрация: 06.11.2011 Сообщений: 4
		1
	Вычислить сумму отрицательных элементов массива и найти максимальный по модулю элемент 06.11.2011, 18:39. Показов 843. Ответов 7 Метки нет (Все метки) в одномерную массиве, из n действительных элементов вычислять сумму отрицательное элементов массива и найти максимальный по модулю элемент. 0

vetvet Змеюка одышечная 9863 / 4594 / 178 Регистрация: 04.01.2011 Сообщений: 8,556
	06.11.2011, 19:08	2
	Линна, на каком языке? 0

@Линна 0 / 0 / 0 Регистрация: 06.11.2011 Сообщений: 4
	07.11.2011, 23:19 [ТС]	5
	Програмка! Порівняти кількість букв А,в двох текстових файлів. Турбо Паскаль. 0

@Rom41k95 1 / 1 / 2 Регистрация: 27.09.2011 Сообщений: 78
	07.11.2011, 23:21	6
	Шо закладено під словом "порівняти" ? Оо 0

@Линна 0 / 0 / 0 Регистрация: 06.11.2011 Сообщений: 4
	07.11.2011, 23:26 [ТС]	7
	нічого 0

@Rom41k95 1 / 1 / 2 Регистрация: 27.09.2011 Сообщений: 78
	07.11.2011, 23:27	8
	Ты определись,потеря.Тебе люди помочь пытаются,ты тут мухи свои включаешь. 0

Опции темы