В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов.

@Равиль · Регистрация: 04.10.2011

В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов. Результат вывести на экран. 2) Дан массив чисел. Все элементы массива, начиная с первого положительног, уменшить на 0,5. 3) Дана целочисленная матрица размерностью n на m. Найти матрицу, получающуюся из данной:
А) перестановкой столбцов - первого с последним, второго с предпоследним и т.д.;
Б) перестановкой строк - первой с последней, второй с предпоследней и т.д.;
4) Дана квадратная матрица n на n, состоящая из натуральных чисел. Повернуть её на 180 градусов и вывести разультат на экран.

Если зделаете буду вам очень признателен.

@Demsol · 24.11.2011, 12:21

Правила прочитай, нельзя в одну тему несколько вопросов пихать.
1.

Delphi

sum:=0;
proiz:=1;
for i:=1 to n do
begin
if a[i]>0 then sum:=sum+a[i];
if a[i]<0 then proiz:=proiz*a[i];
end;

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

Delphi

isis:=false;
for i:=1 to N do
begin
if a[i]>0 then isis:=true;
if isis then a[i]:=a[i]-0.5
end;

Добавлено через 3 минуты
3.

Delphi

for i:=1 to N do
b[i,1]:=a[N-i,1];
_____________________
for i:=1 to N do
b[1,i]:=a[1, N-i];

Добавлено через 1 минуту
4.
Убрать разделитель в задании 3

@Равиль · 24.11.2011, 12:28 **[ТС]**

Не работают

@Demsol · 24.11.2011, 12:30

Конечно не работают, пременные то не описаны.
Просто скопировать и скомпилировать у вас не получиться, хотя бы попытались бы понять суть алгоритма для начала

@Равиль · 24.11.2011, 12:32 **[ТС]**

Я в прагромирование не в зуб ногой. Програма работает но не правильно как то

@Demsol · 24.11.2011, 12:48

ладно, добавьте вначале каждой программы код

Delphi

const N=5 //Число элементов в массиве по i
const M=5 //Число элементов в массиве по j
var sum, proiz,i : integer
isis:boolean;
a : array [1..N] of integer;

во второй программе a: array[1..N] of real;
в третьей a: array[1..N, 1..M] of integer;
в четвертой a: array[1..N, 1..N] of integer;
В конце каждой программы добавьте end.

@Равиль · 24.11.2011, 13:38 **[ТС]**

А это вообще на паскале?

@Demsol · 24.11.2011, 13:43

Нет млин, на ассемблере

@Sanya383 · 24.11.2011, 14:37

Pascal

uses crt;
var s:array [1..100] of integer;
n,i,o,p:integer;
begin
writeln ('ввести кол-во символов');
readln (n);
for i:=1 to n do
begin
readln (s[i]);
if s[i]>=0 then o:=ots[i]
             else p:=pts[i];
end;
writeln (o,p);
readln;
end.

@Demsol · 25.11.2011, 09:01

Есть несколько вопросов к Sanya383:
1. Решением какой задачи является ваша программа? Я так думаю что первой.
2. Нахрена там модуль crt
3. Что означают o:=ots[i], p:=pts[i]

@Равиль · 25.11.2011, 12:41 **[ТС]**

Да эта программа не правильная Саня

@Равиль 0 / 0 / 0 Регистрация: 04.10.2011 Сообщений: 29
		1
	В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов. 24.11.2011, 11:53. Показов 6856. Ответов 10 Метки нет (Все метки) В массиве B(n), найти сумму всех положительных и произведение всех отрицательных элементов. Результат вывести на экран. 2) Дан массив чисел. Все элементы массива, начиная с первого положительног, уменшить на 0,5. 3) Дана целочисленная матрица размерностью n на m. Найти матрицу, получающуюся из данной: А) перестановкой столбцов - первого с последним, второго с предпоследним и т.д.; Б) перестановкой строк - первой с последней, второй с предпоследней и т.д.; 4) Дана квадратная матрица n на n, состоящая из натуральных чисел. Повернуть её на 180 градусов и вывести разультат на экран. Если зделаете буду вам очень признателен. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Равиль 0 / 0 / 0 Регистрация: 04.10.2011 Сообщений: 29
	24.11.2011, 12:28 [ТС]	3
	Не работают 0

@Demsol 43 / 43 / 14 Регистрация: 16.11.2011 Сообщений: 125
	24.11.2011, 12:30	4
	Конечно не работают, пременные то не описаны. Просто скопировать и скомпилировать у вас не получиться, хотя бы попытались бы понять суть алгоритма для начала 1

@Равиль 0 / 0 / 0 Регистрация: 04.10.2011 Сообщений: 29
	24.11.2011, 12:32 [ТС]	5
	Я в прагромирование не в зуб ногой. Програма работает но не правильно как то 0

@Равиль 0 / 0 / 0 Регистрация: 04.10.2011 Сообщений: 29
	24.11.2011, 13:38 [ТС]	7
	А это вообще на паскале? 0

@Demsol 43 / 43 / 14 Регистрация: 16.11.2011 Сообщений: 125
	24.11.2011, 13:43	8
	Нет млин, на ассемблере 1

@Demsol 43 / 43 / 14 Регистрация: 16.11.2011 Сообщений: 125
	25.11.2011, 09:01	10
	Есть несколько вопросов к Sanya383: 1. Решением какой задачи является ваша программа? Я так думаю что первой. 2. Нахрена там модуль crt 3. Что означают o:=ots[i], p:=pts[i] 1

@Равиль 0 / 0 / 0 Регистрация: 04.10.2011 Сообщений: 29
	25.11.2011, 12:41 [ТС]	11
	Да эта программа не правильная Саня 0

Опции темы