Заменить первый отрицательный элемент буквой k

@Андреич Серёг · Регистрация: 18.11.2012

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

Приветствую форумчане.
Прошу вас помочь с заданием.
За ранее огромное спасибо от всей группы.
Задача:
Массивы
1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Заменить первый отрицательный элемент буквой k.

@CodeR · 19.11.2012, 09:39

Pascal

Const n=10;
Var A:array[1..n] of integer;
    i,k,j:integer;
Begin
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
      if (j=0)and(A[i]<0) then j:=i;
    End; 
    write('Введите число k: ');readln(k);
    if j>0 then A[j]:=k;
    writeln('Полученный массив');
    For i:=1 to n do
     write(A[i]:4);
End.

Сообщение от Андреич Серёг

элемент буквой k

наверно числом k

@Андреич Серёг · 19.11.2012, 12:19 **[ТС]**

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

наверно числом k

Спасибо большое за ответ. А по поводу k: так и было написано в задании

@Андреич Серёг 1 / 1 / 0 Регистрация: 18.11.2012 Сообщений: 32
		1
	Заменить первый отрицательный элемент буквой k 19.11.2012, 06:32. Показов 1727. Ответов 2 Метки нет (Все метки) Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: Массивы 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Заменить первый отрицательный элемент буквой k. 0

@Андреич Серёг 1 / 1 / 0 Регистрация: 18.11.2012 Сообщений: 32
	19.11.2012, 12:19 [ТС]	3
	Сообщение от Artem7 наверно числом k Спасибо большое за ответ. А по поводу k: так и было написано в задании 0

Заменить первый отрицательный элемент буквой k

Решение