Обработка данных, замена значения в массиве

@Arzu · Регистрация: 06.05.2020

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

Пытался, пытался, но видимо IQ не хватило. . .

Условие задачи:
Введите массив FIO[1..10], элементами которого являются фамилия, имя отчество студентов. Если в элементе массива имя = «Наталья» заменить его на «Наталия» Ввод и вывод данных оформите разными цветами.

Попытка №1

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program PR14;
Var FIO: array [1..10] of string; j, i: integer;
Begin
For i:=1 to 10 do
begin
Write('Введите ', i,'-ое ФИО студента: ');
Readln(FIO[i]);
end;
For i:=1 to 10 do begin
for j:=1 to length(FIO[i]) do begin
if (FIO[i][j]='Н')and (FIO[i][j+1]='а') and (FIO[i][j+2]='т') and (FIO[i][j+3]='а') and (FIO[i][j+4]='л') and (FIO[i][j+4]='ь') and (FIO[i][j+6]='я')then
Delete 
end; end;
Write (FIO);
end.

Попытка №2

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
a: array[1..10] of string;
i, k: integer;
s: string;
begin;
textcolor(3);
for i := 1 to 10 do
begin;
writeln('Введите ФИО ', i, '-го студента');
readln(a[I]);
end;
for i := 1 to 10 do
if pos('Наталья', a[i]) <> 0 then
begin
??????
end;
textcolor(4);
for i:=1 to 10 do
writeln(a[i]);
end.

@JuriiMW · 18.05.2020, 04:52

Pascal
1
2
3
4
5
6
7
8
begin
  var FIO := ReadArrString(10);
  for var i := 0 to FIO.Length-1 do
    if FIO[i].Contains('Наталья') then
      FIO[i] := FIO[i].Replace('Наталья', 'Наталия');
  ('~'*20).Println;
  FIO.PrintLines;
end.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .