Программирование паскаль проверить, все ли строки матрицы c(n1×n2) содержат хотя бы один отрицательный элемент, если не все, сообщить номер первой, где нет отрицательных элементов. внимание: все это выполнить без цикла for, только while или repeat.
Ответы
Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
<!DOCTYPE html>
<html>
<head>
<style>
body {
text-align: center;
}
form {
display: inline-block;
width: 40%;
}
label {
display: block;
}
textarea {
width: 100%;
height: 300px;
}
button {
width: 45%;
}
</style>
<script>
function DeShifr()
{
let Text = document.getElementById("shifr").value;
let L = Text.length;
let NeChet = Text.substr(0,L/2+L%2);
let Chet = Text.substr(L/2+L%2,L/2);
let DeShifr = "";
for (let i = 0, c = 0, n = 0; i < L; i++)
{
DeShifr += (i%2?Chet[c++]:NeChet[n++]);
}
document.getElementById("DeShifr").innerHTML = DeShifr;
}
</script>
</head>
<body>
<form>
<label for="shifr">Введите зашифрованный тест сообщения:</label>
<textarea id="shifr"></textarea>
<button type="button" onCLick="DeShifr()">Расшифровать</button>
<div id="DeShifr"></div>
</form>
</body>
</html>
<html>
<head>
<style>
body {
text-align: center;
}
form {
display: inline-block;
width: 40%;
}
label {
display: block;
}
textarea {
width: 100%;
height: 300px;
}
button {
width: 45%;
}
</style>
<script>
function DeShifr()
{
let Text = document.getElementById("shifr").value;
let L = Text.length;
let NeChet = Text.substr(0,L/2+L%2);
let Chet = Text.substr(L/2+L%2,L/2);
let DeShifr = "";
for (let i = 0, c = 0, n = 0; i < L; i++)
{
DeShifr += (i%2?Chet[c++]:NeChet[n++]);
}
document.getElementById("DeShifr").innerHTML = DeShifr;
}
</script>
</head>
<body>
<form>
<label for="shifr">Введите зашифрованный тест сообщения:</label>
<textarea id="shifr"></textarea>
<button type="button" onCLick="DeShifr()">Расшифровать</button>
<div id="DeShifr"></div>
</form>
</body>
</html>
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Дано 4-значное число abcd. вычислить число y=badc
Автор: Аношкина1696
Чему будет равен X после выполнения цикла x: = 1; while x <=5 do begin writeln (x); x:=x+1 end
Автор: silicon-films3375
n1,k,i,n2,j:integer;
b:boolean;
begin;
readln(n1);
readln(n2);
inc(n1);
inc(n2);
k:=1;
setlength(ar,n1+1);
while k<>n1 do
begin;
setlength(ar[k],n2+1);
inc(k);
end;
b:=false;
k:=0;
i:=1;
j:=1;
writeln('Matrix:');
while i<>n1 do
begin;
writeln;
while j<>n2 do
begin;
ar[i,j]:=random(100)-50;
write(ar[i,j]:4);
inc(j);
end;
j:=1;
inc(i);
end;
i:=1;
j:=1;
while i<>n1 do
begin;
while j<>n2 do
begin;
if ar[i,j]<0 then b:=true;
inc(j);
end;
if b=false then
begin;
writeln;
writeln(i);
exit;
end;
b:=false;
inc(i);
j:=1;
end;
writeln;
writeln('Все');
end.