using System;
using static System.Console;
class Program
{
static void Main()
{
const int n=10;
int[] a=new int[n];
double s=0,s1=0;
Random rnd=new Random();
Write("массив: ");
for(int i=0;i<a.Length;i++)
{
a[i]=rnd.Next(-20,20);
Write(a[i].ToString()+" ");
if(a[i]>0)
s+=a[i];
if(a[i]<0)
s1+=a[i];
}
WriteLine("");
Write("результат: "+(s/Math.Abs(s1)).ToString());
}
}
Милашки глазки миленькие мягкие
"Страны мира";
СТРАНА – символьный
СТОЛИЦА – символьный
ПЛОЩАДЬ – числовой
НАСЕЛЕНИЕ – числовой
ПОСЕЩАЛ – логический
"Мои одноклассники";
ФАМИЛИЯ – символьный
ИМЯ – символьный
АДРЕС – символьный
ТЕЛЕФОН – символьный
РОДИЛСЯ – дата
"Кинофильмы";
НАЗВАНИЕ – символьный
СТРАНА – символьный
ЖАНР – символьный
РЕЖИССЕР – символьный
ДУБЛИРОВАН – логический
"Телефонный справочник";
ФИО – символьный
АДРЕС – символьный
НОМЕР – числовой
"Мои посещения врача".
ДАТА – дата
ДИАГНОЗ – символьный
ЛЕЧЕНИЕ – символьный
var a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
if a[i]<0 then a[i]:=abs(a[i]);
writeln;
for i:=1 to 10 do write(a[i],' ');
end.