Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');

0 0

4 года назад

ПАСКАЛЬ!!!! составить алгоритм, находящий остаток от деления одного натур-го числа на другой( диф и мод не использовать)

Петрович Михаил 2006 [6]

Можно использовать другие команды? Например Trunc?
Если да, то вот:
var i,j,n:integer;
s:real;
begin
readln(i,j);
s:=i/j;
n:=i-j*Trunc(s); {Функция Trunc выделяет целую часть}
writeln(n);
end.
Если нельзя пользоваться Trunc, то вот другое решение:
var i,j:integer;
s,m:real;
begin
readln(i,j);
m:=i/j;
s:=m;
while s>=1 do s:=s-1;
m:=m-s
;writeln(i-j*m;);
end.

0 0

1 год назад

Дан двумерный массив. определить есть ли в данном массиве отрицательный элемент

daryasafonova90 [44]

int [ , ] array = new int [2,3];
Random rnd=new Random();
For (int i=0; i<array.lenght; i++)
{
For (int j=0; i<array.lenght; j++)
{
a[i,j]=rnd.Next(-25,25);
if (array[i,j]<0) Console.WriteLine("Есть");
}
}

0 0

4 года назад

Какие присказки есть в сказке пойди туда не знаю куда и сколько раз

Владислав Сердюков [14]

Без труда не вытащишь рыбку из труда

0 0

3 года назад