• Помогите решить задачи.
    1.Сформулируйте и выведите на экран массив из девяти элементов, каждые три последовательных элемента которого составлены по следующему правилу:
    1-й равен случайному двузначному числу;
    2-й равен целой части от деления случайного трехзначного числа на его индекс;
    3-й равен остатку от деления случайного двузначного числа на 10. 
    2.Напишите программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен разности двух предыдущих элементов, увеличенной на номер строки текушего элемента. Два первых элемента задайте с клавиатуры.
    ЗАРАНЕЕ БЛАГОДАРЮ)

Ответы 1

  • 1) Program p1;Uses crt;Var A: array [1..9] of integer;i: integer;Begin clrscr;for i:=1 to 9 dobegincase i of1,4,7: a[i]:= random (99-10+1)+10;2,5,8: (random (999-100+1)+100) div i;3,6,9: (random (99-10+1)+10) mod 10;end;write (a[i],' ');end;readln;readkey;end.2) Program p2;Uses crt;Var A: array [1..15] of integer;i: integer;Begin clrscr;Writeln ('Введите первые 2 элемента массива');Read (a[1],a[2]);for i:=3 to 15 dobegina[i]:=(a[i-1]-a[i-2])+i;write (a[i],' ');end;readln;readkey;end.
    • Автор:

      cookie19
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years