Информатика

Вопрос/Задача:

Нужно сделать с использованием функции. pascal ! ​

Ответы на вопрос

Ответ
Ответ разместил: Гость

2) задаеш размер масива константой и присваеваеш значение 10

первому елементу масива присваеваеш значение а) 2; б)3 и потом в цикле от 2 до 10 

каждому елементу присваеваеш значение предыдущего а) +2 ; б) +3

mas[i]=mas[i-1]+2;

mas[i]=mas[i-1]+3;

1)с етой совсем просто, я цикле от 1 до 10 с функции random каждому елементу масива присваивается случайное значение.

randomize;

mas[i]=random(20+1);

Ответ
Ответ разместил: Гость
1) 7x+2=3x-10 4x=-12 x=-3 2) 3x-8=x+6 2x=14 x=7 3)9+5x=7+4 5x=2 x=0,4 4)10m-6=11m-7 -m=-1 m=1
Ответ
Ответ разместил: Гость

1000=8

0001=1

0110=6

0101=5

0111=7

0100=4

1001=9

0010=2 

Ответ
Ответ разместил: Гость

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.

Похожие вопросы

Вопросов на сайте: