В символьном массиве из 6 элементов,заданных с клавиатуры,удалить символы <<=>>.

@Кися · Регистрация: 09.03.2010

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

В символьном массиве из 6 элементов,заданных с клавиатуры,удалить символы <<=>>.

Случайным образом задать 8 элементов числового массива- числа от 100 до 200.вставить в него
а)число -20 перед 5-ым элементом.
б)число 0 перед максимальным элементом.

В символьный массив,10 элементов которого заданы с клавиатуры,вставить символ <<м>> перед 7-ым элементом.

@WolfCF · 09.03.2010, 17:51

в паскаль перенести

@Антонн · 10.03.2010, 09:22

Удаление знака =

Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
const   k=6;
var s:array[1..k] of char;
    s1:array[1..k] of char;
i:integer;
begin
for i:=1 to k do begin
writeln ('vvedite simvol');
readln (s[i]); end;
for i:=1 to k do begin
write (s[i]:2);
 end;
for i:=1 to k do
if s[i]<>'=' then begin s1[i]:=s[i];
end;
writeln;
for i:=1 to k-1 do
write (s1[i]:2);
 readln;
end.

@Кися · 10.03.2010, 15:33 **[ТС]**

Спасибки,большое)))))))Чмафффф!!!!!!!!!

@Кися · 11.03.2010, 18:57 **[ТС]**

Остальное помогите!!!!!

@Антонн · 11.03.2010, 19:53

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
program Project1;
 uses
 const   k=8;
var  s:array[1..k] of integer;
      s1:array[1..k] of integer;
      max,i:integer;
begin
 max:=0;
 randomize;
 for i:=1 to k do
begin
   s[i]:=random(300);
end;
for i:=1 to k do
 begin
 write (s[i]:4);
 end;
for i:=1 to k do
 s1[i]:=s[i];
for i:=1 to k do
 if i=5 then s1[i-1]:=-20;
  writeln;
  writeln (' posle');
for i:=1 to k do
  write (s1[i]:4);
  writeln;
for i:=1 to k do
  if s1[i]>max then max:=s1[i];
  write (' max element ',max);
  writeln;
for i:=1 to k do
  if s1[i]=max then s1[i-1]:=0;
for i:=1 to k do
  write (s1[i]:4);
  readln;
end.

Добавлено через 9 минут
толькот нужно поправить a[i]:=random(300) я просто не помню как сделать диапазон от 100 до 200.
а так прога работает.

Новые блоги и статьи Все статьи Все блоги /
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@Кися 0 / 0 / 0 Регистрация: 09.03.2010 Сообщений: 12

	В символьном массиве из 6 элементов,заданных с клавиатуры,удалить символы <<=>>. 09.03.2010, 17:50. Показов 2950. Ответов 5 Метки нет (Все метки) В символьном массиве из 6 элементов,заданных с клавиатуры,удалить символы <<=>>. Случайным образом задать 8 элементов числового массива- числа от 100 до 200.вставить в него а)число -20 перед 5-ым элементом. б)число 0 перед максимальным элементом. В символьный массив,10 элементов которого заданы с клавиатуры,вставить символ <<м>> перед 7-ым элементом. 0

@WolfCF 3317 / 1379 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	09.03.2010, 17:51
	в паскаль перенести 0

@Кися 0 / 0 / 0 Регистрация: 09.03.2010 Сообщений: 12
	10.03.2010, 15:33 [ТС]
	Спасибки,большое)))))))Чмафффф!!!!!!!!! 0

@Кися 0 / 0 / 0 Регистрация: 09.03.2010 Сообщений: 12
	11.03.2010, 18:57 [ТС]
	Остальное помогите!!!!! 0