Предмет: Информатика,
автор: lizakokorina14
Помогите решить 6 вариант все задания
C#
Даю 20 баллов
Приложения:
![](https://files.topotvet.com/i/a92/a929f8f53d683cf8a52e68e0c0636a58.jpg)
Ответы
Автор ответа:
0
Ответ:
const
n=10;
var
arr; array[1.. 100] of integer;
i: integer;
begin
for i:=1 to n do
begin
read(arr[i]);
if arr [i]<0 then
arr[i]:=0
end;
for i:=1 to n do write (arr[i], ' ') ;
end.
2
const N = 15;
var
arr: array[1..N] of integer;
i, k: byte;
begin
randomize;
for i:=1 to N do begin
arr[i] := random(100) - 50;
write(arr[i]:4);
end;
writeln;
write('Введите k <= ', N, ': ');
readln(k);
if k > N then exit;
for i:=1 to k do arr[i] := -1 * arr[i];
for i:=1 to N do
write(arr[i]:4);
writeln;
end.
lizakokorina14:
А как перевести то на C#
Похожие вопросы
Предмет: Русский язык,
автор: лилит151
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: Шоколаднаяпанда
Предмет: Геометрия,
автор: narmi2018qwerty
Предмет: Алгебра,
автор: venya90