Все положительные элементы массива возвести в квадрат, а отрицательные в куб

@tishka_nastya · Регистрация: 16.02.2013

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

1)Дан массив Y. Все положительные элементы массива возвести в квадрат, а отрицательные в куб. Вывести в файл старый и новый массивы, а также суммы элементов в старом и новом массивах отдельно.

Комментарий модератора

tishka_nastya, по правилам форума один вопрос - одна тема.
Ваши задания вынесены в отдельные темы:
В тексте удалить все гласные буквы, а согласные заменить на прописные
Составить программу, выводящую на экран перечень товаров, имеющихся в продаже в магазине "Океан"
Даны два символьных файла F1 и F2. Переписать F1 в F2 , а F2 в F1. Использовать вспомогательный файл
Дан файл вещественных чисел. Заменить в нем все элементы на их квадраты
Записать сведения в файле g, используя образцы

Kodzaev · 16.02.2013, 23:55

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

1)Дан массив Y. Все положительные элементы массива возвести в квадрат, а отрицательные в куб. Вывести в файл старый и новый массивы, а также суммы элементов в старом и новом массивах отдельно.

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
Var
  y: Array[1..100] of Integer;
  i,n: Byte;
  f: Text;
  s: Integer;
BEGIN
Write('Введите кол-во элементов: ');
Readln(n);
Assign(f,'text.txt');
Rewrite(f);
s:=0;
Writeln(f,'Исходный массив');
For i:=1 to n do
begin
  y[i]:=Random(21)-10;
  s:=s+y[i];
  Write(f,IntToStr(y[i])+' ');
end;
Write(f,'SUM= '+IntToStr(s));
s:=0;
Writeln(f);
Writeln(f,'Новый массив');
For i:=1 to n do
begin
  If y[i]>0 Then
  y[i]:=Sqr(y[i]);
  If y[i]<0 Then
  y[i]:=y[i]*y[i]*y[i];
  s:=s+y[i];
  Write(f,IntToStr(y[i])+' ');
end;
Write(f,'SUM= '+IntToStr(s));
Close(f);
Writeln('Файл text.txt создан');
END.

Новые блоги и статьи Все статьи Все блоги /
Обнаружение объектов в реальном времени на Python с YOLO и OpenCV AI_Generated 29.04.2025 Компьютерное зрение — одна из самых динамично развивающихся областей искусственного интеллекта. В нашем мире, где визуальная информация стала доминирующим способом коммуникации, способность машин. . .	Эффективные парсеры и токенизаторы строк на C# UnmanagedCoder 29.04.2025 Обработка текстовых данных — частая задача в программировании, с которой сталкивается почти каждый разработчик. Парсеры и токенизаторы составляют основу множества современных приложений: от. . .	C++ в XXI веке - Эволюция языка и взгляд Бьярне Страуструпа bytestream 29.04.2025 C++ существует уже более 45 лет с момента его первоначальной концепции. Как и было задумано, он эволюционировал, отвечая на новые вызовы, но многие разработчики продолжают использовать C++ так, будто. . .	Слабые указатели в Go: управление памятью и предотвращение утечек ресурсов golander 29.04.2025 Управление памятью — один из краеугольных камней разработки высоконагруженных приложений. Го (Go) занимает уникальную нишу в этом вопросе, предоставляя разработчикам автоматическое управление памятью. . .	Разработка кастомных расширений для компилятора C++ NullReferenced 29.04.2025 Создание кастомных расширений для компиляторов C++ — инструмент оптимизации кода, внедрения новых языковых функций и автоматизации задач. Многие разработчики недооценивают гибкость современных. . .
Гайд по обработке исключений в C# stackOverflow 29.04.2025 Разработка надёжного программного обеспечения невозможна без грамотной обработки исключительных ситуаций. Любая программа, независимо от её размера и сложности, может столкнуться с непредвиденными. . .	Создаем RESTful API с Laravel Jason-Webb 28.04.2025 REST (Representational State Transfer) — это архитектурный стиль, который определяет набор принципов для создания веб-сервисов. Этот подход к построению API стал стандартом де-факто в современной. . .	Дженерики в C# - продвинутые техники stackOverflow 28.04.2025 История дженериков началась с простой идеи — создать механизм для разработки типобезопасного кода без потери производительности. До их появления программисты использовали неуклюжие преобразования. . .	Тестирование в Python: PyTest, Mock и лучшие практики TDD py-thonny 28.04.2025 Тестирование кода играет весомую роль в жизненном цикле разработки программного обеспечения. Для разработчиков Python существует богатый выбор инструментов, позволяющих создавать надёжные и. . .	Работа с PDF в Java с iText Javaican 28.04.2025 Среди всех форматов PDF (Portable Document Format) заслуженно занимает особое место. Этот формат, созданный компанией Adobe, превратился в универсальный стандарт для обмена документами, не зависящий. . .

Опции темы