ДЗ: Информатика задача 1.4.2 вариант 24 вариант 24
Описание
Характеристики домашнего задания
Список файлов
- Информатика задача 1.4.2 вариант 24
- Project3.dpr 945 b
- Project3.exe 43,5 Kb
- Project3.txt 947 b
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.
Начать зарабатывать