Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Олечка буся
0 / 0 / 0
Регистрация: 16.12.2010
Сообщений: 6
1

Замена отрицательных чисел... Проверка программы

16.12.2010, 23:42. Просмотров 625. Ответов 1
Метки нет (Все метки)

Условие: Заменить все отрицательные элементы массива нулями

Программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program Pr5;
Var A:array [1..10] of integer;
I,S:integer;
begin
for i:=1 to 10 do
read(A[I]);
S:=0;
for i:=1 to 10 do
if a[i]< 0 then a[i]:=1
else a[i]:=0;
writeln('преобразованный массив:');
end.
есть ошибки... не могли бы вы указать их?? и по возможности исправить?

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.12.2010, 23:42
Ответы с готовыми решениями:

Найти сумму всех элементов массива, количество положительных и отрицательных чисел и среднеарифметическое отрицательных чисел
заранее всем спасибо буду признателен за любую помощь

Из n произвольных чисел найти кол-во отрицательных чисел и среднее значение четных чисел
Добрый день, форумчане помогите решить, сделать программу по Паскалю. Из n произвольных чисел...

Замена отрицательных элементов матрицы нулями
Разработать программу для выполнения над матрицей А операций. 1) Замена отрицательных элементов...

Найти количество положительных и отрицательных чисел среди чисел заданного вида
Найти количество положительных и отрицательных чисел среди чисел вида: sin x n при х=1,13; n=1…30

Найти сумму отрицательных чисел среди произвольно введеных 16 целых чисел
1. Найти сумму отрицательных чисел среди произвольно введеных 16 целых чисел. 2. Данные о...

1
STGE
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,188
16.12.2010, 23:59 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
const m=10;
var a: array[1..m] of integer; 
      i: byte;
begin
 randomize;
 clrscr;
 writeln ('исходный массив: ');
 for i:=1 to m do
  begin
   a[i]:=random(19)-9;
   write (a[i]:3);
  end;
 writeln;
 for i:=1 to m do
  if a[i]<0 then a[i]:=0;
 writeln ('результат преобразований: ');
 for i:=1 to m do 
  write (a[i]:3);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.12.2010, 23:59

Введите 10 чисел с клавиатуры, найдите сумму и количество отрицательных чисел
Введите 10 чисел с клавиатуры, найдите сумму и количество отрицательных чисел.

Считывание с клавиатуры n целых чисел и вычисление количества положительных, отрицательных и нулевых чисел
ia znaiu, 4to legko, no u menia 4to-to ne to.... vot zadanie Напишите три программы (одну с...

Написать программу ,которая суммирует N отрицательных четных чисел из вводимых с клавиатуры чисел
Написать программу ,которая суммирует N отрицательных четных чисел из вводимых с клавиатуры...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru