Составить блок схему по программе : Program Vectors ; var k, i, j, sum, para : integer ; y, z : array[1?

Dinka07 21 мар. 2020 г., 05:22:14

Смотрите вложение

смотрите вложение

смотрите вложение

смотрите вложение.

Анядем 24 апр. 2020 г., 17:43:11 | 10 - 11 классы

Дан фрагмент программы на языке паскаль, на вход которого поданы значения N = 10 и M = 2?

Дан фрагмент программы на языке паскаль, на вход которого поданы значения N = 10 и M = 2.

Чему будет равно на выходе из фрагмента значение SUM?

SUM : = 0 ; K : = M - 1 ; while K< ; M do begin for I : = K - M + 2 to K Do SUM : = SUM + I ; K : = K + M ; end ; for I : = K - M + 2 to N - 1 do SUM : = SUM + I ;

Malkovakaterin 22 июн. 2020 г., 01:30:03 | 10 - 11 классы

Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить program Project2 ; {$APPTYPE CONSOLE} uses SysUtils ; var A : array of arra?

Дана целочисленная квадратная матрица найти сумму элементов, стоящих выше главной диагонали надо вот эту программу исправить program Project2 ; {$APPTYPE CONSOLE} uses SysUtils ; var A : array of array of Integer ; n, i, j : Integer ; sum : Real ; begin Writeln('Vvedite n') ; readln(n) ; SetLength(a, n, n) ; Writeln('Vvedite A') ; for i : = 1 to n do for j : = 1 to n do Readln (A[i, j]) ; Sum : = 0 ; for i : = 1 to n do for j : = 1 to n do ; begin if (j> ; i) then sum : = sum + A[i, j] ; end ; Writeln ; Writeln ; Writeln('sum = ', sum : 8 : 3) ; Readln ; readln ; Readln ; end.

Прыгайзайка 17 янв. 2020 г., 13:47:28 | 5 - 9 классы

Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1?

Заполните пропуски в программе ввода и вывода 10 целочисленных элементов массива, заданных случайным образом на промежутке [20 ; 40] : Program gh ; var A : array[ 1.

___] of integer ; i : integer ; begin for i : = 1 to __ do begin A[i] : = random(___) + ____ ; write(____) ; end ; end.

Roar1503 22 мар. 2020 г., 07:37:41 | 5 - 9 классы

Решить задания на языке программирования в Turbo Pascal : 1) Выполните тестирование программы : опишите как будут меняться значения переменных и что появится на экране в результате выполнения программ?

Решить задания на языке программирования в Turbo Pascal : 1) Выполните тестирование программы : опишите как будут меняться значения переменных и что появится на экране в результате выполнения программы.

Для переменной S ввести строку - 'аб2в457где245 * ж' Program z2 ; uses crt ; var s : string ; k, sum, i, n : integer ; begin readln(s) ; i : = 1 ; repeat val(s[i], n, k) ; i : = i + 2 ; sum : = sum + n ; writeln(n) ; until i> ; length(s) ; writeln(sum) ; readkey ; end.

2) Дано предложение.

Удалить из него все буквы с.

Vfrc01112004 24 июл. 2020 г., 20:16:09 | 10 - 11 классы

Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1?

Объяснить, что означает каждая строчка : Program sum_mas ; uses Crt ; Var i : integer ; sum : real ; M : array[1.

5] of Real ; begin WriteLn('Введите число m[', i, '] = ') ; readln(m[i]) ; end ; Sum : = 0 ; For i : = 1 to 5 do Sum : = sum + m[i] ; Writeln('сумма = ', sum) ; readln ; end.

Yanis06 12 июн. 2020 г., 20:35:14 | 10 - 11 классы

Какое число было введено в данной программе, если результатом исполнения является число 100?

Какое число было введено в данной программе, если результатом исполнения является число 100?

Var a : array [1.

8] of integer ; i, sum : integer ; begin readln (a [1]) ; sum : = 0 ; for i : = 1 to 8 do a [i] : = a [i - 1] + 3 ; for i : = 8 downto 1 do sum : = sum + a [i] ; writeln (sum) end.

Расчёскина 4 сент. 2020 г., 00:53:21 | 10 - 11 классы

Отредактируйте, пожалуйста?

Отредактируйте, пожалуйста.

В заданном двумерном массиве найти индексы первого элемента, превосходящего среднее арифметическое всех элементов.

Uses crt ; var b : array[1.

1000, 1.

1000] of integer ; sum, kolvoel, i, j, n : integer ; srar : real ; begin randomize ; n : = 0 ; writeln('Vv razmer matrici') ; readln(n) ; kolvoel : = sqr(n) ; sum : = 0 ; srar : = 0 ; for i : = 1 to n do for j : = 1 to n do begin b[i, j] : = random(2 * 20 + 1) - 20 ; end ; for i : = 1 to n do {vivod matr} begin for j : = 1 to n do write ( b [ i, j ] : 4) ; writeln ; end ; for i : = 1 to n do for j : = 1 to n do sum : = b[i, j] + sum ; srar : = sum / kolvoel ; writeln('srasr = ', srar) ; for i : = 1 to n do for j : = 1 to n do begin if b[i, j]> ; srar then writeln('i = ', i, 'j = ', j) ; break ; end ; end.

VVK020504 18 февр. 2020 г., 11:59:21 | 10 - 11 классы

Почему pascal не может найти файл, пишет что файл не найден, хотя он есть?

Почему pascal не может найти файл, пишет что файл не найден, хотя он есть!

Вот программа

Program ex1 ;

var : a, b, sum : integer ; f1, f2 : text ;

begin assign(f1, 'input.

Txt') ; assign(f2, 'output.

Txt') ; reset(f1) ; read(f1, a, b) ; sum : = a + b ; rewrite(f2) ; write(f2, sum) ; close(f1) ; close(f2) ;

end.

Алеся111111112 18 дек. 2020 г., 19:24:47 | 10 - 11 классы

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 ^ 9, и выводится сумма цифр этого числа?

Требовалось написать программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10 ^ 9, и выводится сумма цифр этого числа.

Программист торопился и написал программу неправильно : var N : longint ; sum, d : integer ; begin readln(n) ; sum : = 0 ; while N > ; 0 do begin d : = N mod 10 ; N : = N div 10 ; sum : = sum + 1 ; end ; writeln(sum) ; end.

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе числа 256.

2. Приведите пример такого трехзначного числа, при вводе которого программа выдаёт правильный результат.

3. Найдите все ошибки в этой программе ( их может быть одна или несколько).

Bobskill 9 июл. 2020 г., 21:30:30 | 5 - 9 классы

Всем привет?

Всем привет.

Вообщем, вот задача и к ней необходимо написать программу(Pascal).

Код программы будет ниже.

Нужно проверить его на ошибки и дать коментарии к коду.

Если код неправильный прошу подкорректировать.

Буду очень признателен.

Заранее спасибо.

Задача : Дана последовательность из n действительных чисел (n < ; = 100).

Написать программу для подсчета суммы этих чисел.

Код программы : var massiv : array [1.

100] of real ; sum : real ; n, i : integer ; begin clrscr ; writeln ('Введите количество чисел') ; readln (n) ; for i : = 1 to n do begin writeln ('Введите ', i, ' - ое число') ; readln (massiv [i]) ; end ; sum : = 0 ; for i : = 1 to n do sum : = sum + massiv [i] ; writeln ('Сумма последовательности равна ', sum : 0 : 4) ; readln ; end.