Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 10.02.2014
Сообщений: 29
1

Отредактировать код(есть некая погрешность )

12.03.2014, 19:45. Показов 365. Ответов 1
Метки нет (Все метки)

Вот сам код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
const N=40;
type x=array [1..N] of integer;
var a:x;
i:integer;
k:integer;
begin
clrscr;
randomize;
for i:=1 to N do
begin
a[i]:= -10+random (91);
write (A[i]:4)
end;
writeln;
k:=0;
for i:=1 to N do
if a[i] <0 then
begin
k:=I
end;
if k>0 then
writeln (Индекс отрицательного элемента =,k)
else
writeln (‘В массиве нет отрицательных элементов');
readln
end.
программа ищет и выдает последний индекс отрицательного элем.,а мне нужно,что бы она выдавала 3 индекс о.э..Помогите,плиз
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.03.2014, 19:45
Ответы с готовыми решениями:

Есть некая строка (буквы либо цифры) и нужно получить её MD5 шифр
Есть некая строка (буквы либо цифры) и нужно получить её MD5 шифр Есть некий код function...

нахождение вектора (отредактировать код)
Здравствуйте.Помогите отредактировать программу.ТЗ:Используя процедуры и функции из целочисленной...

Подсчет количества слов (отредактировать код)
Отредактируйте программу.ТЗ:Посчитать в строке символов количество слов, написанных латинскими...

Есть код JS, как отредактировать?
Согласен, название топика ни очем, но не об этом речь=) В общем ребят, есть код JS(ниже), он...

1
3020 / 1908 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
12.03.2014, 22:26 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses
  crt;
 
const
  N = 40;
 
type
  x = array [1..N] of integer;
 
var
  a: x;
  i: integer;
  k: integer;
 
begin
  clrscr;
  randomize;
  for i := 1 to N do
  begin
    a[i] := -10 + random(91);
    write(A[i]:4)
  end;
  writeln;
  k := 0;
  for i := 1 to N do
  begin
    if a[i] < 0 then
      k := k + 1;
    if k = 3 then
      break
  end;
  if k > 2 then
    writeln('Индекс 3 отрицательного элемента = ', i)
  else
    writeln('В массиве нет 3 отрицательных элементов');
  readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2014, 22:26

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

Дана некая функция и некая матрица
Вычислить значения функции для всех элементов матрицы и записать результат в метрицу того же...

Нужно отредактировать код чтоб меняло первую букву на большую. С++.В коде есть ошибка
#include &lt;conio.h&gt; #include &lt;stdio.h&gt; #include &lt;string.h&gt; int main() { char a,b,firstL; int...

Есть такая задача: Сужествует некая таблица "Журнал учета.....
Есть такая задача: Сужествует некая таблица 'Журнал учета счетов фактуры' с набором записей, каждая...

Есть некая библиотека, сделана в QT. Как скомпилить под Андроид с использованием qt-lib?
Какие изменения нужно сделать в исходнике для компиляции под Андроид? в либе используются классы:...


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

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

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