Для студентов МЭИ (ТУ) 1 семестрa по предмету Информатика Информатика задача 1.4.2 вариант 24Информатика задача 1.4.2 вариант 24 2020-08-21 СтудИзба

Информатика задача 1.4.2 вариант 24

Описание

Описание файла отсутствует
Картинка-подпись

Список файлов в архиве

  • Информатика задача 1.4.2 вариант 24
  • Project3.dpr 945 b
  • Project3.exe 43,5 Kb
  • Project3.txt 947 b
Project3

program Project3;

{$APPTYPE CONSOLE}

uses

SysUtils;

type

mas=array[1..10] of Real;

var n,i,k:Integer;

s:Real;

x:mas;

begin

Writeln ('*******************'); writeln ('* Product of *');

Writeln ('* Tuzhilin Ivan *'); Writeln ('* Groupe:EL-11-16 *');

writeln ('* Task: 1.4.2 *'); Writeln ('* Variant: 24 *');

Writeln ('*******************');

{Ввод массива}

write('enter n='); read(n);

for i:=1 to n do

begin

write('x[',i,']=');

read(x[i]);

end;

{Вывод введенных данных}

for i:=1 to n do

Writeln('x[',i,']=',x[i]);

{Проверка на наличие нулей}

k:=0;

for i:=1 to n do

if x[i]=0 then k:=k+1;

Writeln('x[i]<0 : ',k);

{Замена отрицательных абсолютными величинами}

for i:=1 to n do

if x[i]<0 then x[i]:=Abs(x[i]);

{Вывод значений массива}

for i:=1 to n do

Writeln('x[',i,']=',x[i]);

Read (x[i]);

end.

Комментарии

Сопутствующие материалы
Дата публикации 21 августа 2020 в 12:50
Рейтинг -
0
0
0
0
0
Вариант 24
Автор zzyxel (4,53 из 5)
Цена Бесплатно
Скачивания 1
Просмотры 27
Размер 22,88 Kb
Безопасность Файл был вручную проверен администрацией в том числе и на вирусы
Поделитесь ссылкой:
Свежие статьи
Популярно сейчас