Все категории

4 года назад

Дан одномерный массив M из 10 элементов, сдвинуть его элементы на три позиции. Pascla

Знания

Информатика

1 ответ:

Анастасия777771114 года назад

0 0

Const N = 10;var a: array [1..N] of longint;i,d,j:longint;begin for i:=1 to N do read(a[i]); for j:=1 to 3 do begin d:=a[n]; for i:=N downto 2 do a[i] := a[i-1]; a[1]:=d; end; writeln('После сдвига: '); for i:=1 to N do write(a[i],' '); writeln; end.

Читайте также

Составить программу вычисления выражения: max(x^2+y^3, y^2+z^3)-4 Помогите пожалуйста

serko

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (x,y,z):=ReadReal3('Введите x,y,z:');
Writeln(Max(x*x+y*y*y,y*y+z*z*z)-4)
end.

Пример
Введите x,y,z: 2.6 -1.05 4
61.1025

0 0

4 года назад

Написать программу на C++ для решения следующей задачи: в данной последовательности расположить сначала все отрицательные, затем

Максимус56

#include <iostream>

using namespace std;

int main() {

int n;

cin>>n;

int arr[n], k=0;

for (int i=0; i<n; ++i) {cin>>arr[i]; if (arr[i]==0) ++k;}

for (int i=0; i<n-1; ++i) {

for (int j=0; j<n-i-1; ++j) {

if (arr[j]>arr[j+1]) {

int temp;

temp=arr[j];

arr[j]=arr[j+1];

arr[j+1]=temp;

}

if (k>0) {

int m;

for (m=0; m<n; ++m) if (arr[m]==0) break;

for (int i=m; i<n-k; ++i) arr[i]=arr[i+k];

for (int i=n-k; i<n; ++i) arr[i]=0;

}

for (int i=0; i<n; ++i) cout<<arr[i]<<" ";

return 0;

}

0 0

4 года назад

1)составьте программу вычисления в массиве А, содержащего N элементов, произведения положительных чисел. Pascal 2)составьте про

Michail121212

program massiv1;

0 0

4 года назад

В системе счисления с некоторым основанием число 56 записано в виде 110. Укажите это основание.

Shikarua

Это будет семеричная система счисления.

0 0

4 года назад

Написать x, y, z на языке паскаль

Yogina [7]

program xyz;

var x,y,z,a,b,c:real;

begin

readln(x,y,z);

x:=(sqrt(a)+b)/2*a;

y:=sqrt(abs((3*x+4)/(1-2*x)));

z:=abs(sqr(Cos(x)))/(Ln(1+y));

writeln(z);

end.

0 0

2 года назад