Program pr1;
uses crt;
var
n:byte; // Размерность массива
i:byte; // Счетчик массива
a:array[1..30] of real; // Массива чисел
P:real; // Произведение чисел
Begin
clrscr;
write('Введите размерность массива: ');
readln(n);
writeln('Введите ',n,' элементов');
// Блок ввода
for i:=1 to n do
readln(a[i]);
// Блок вывода
writeln('Исходный массив');
write(a[i]:6:1,' ');
writeln;
readln;
// Блок инициализации
P:=1;
if(a[i]>P) then
P:=P*a[i];
writeln('P= ',P);
End.
Возможно я не так понял задание, но вот
#include <iostream>
#include <string>
#include <conio.h>
#define ESC 27
using namespace std;
int main() {
char ch;
int sum = 0;
do {
ch = _getch();
if (ch == ESC) {
cout << "Output of the program:\n" << sum;
putchar('\n');
} else {
cout << ch;
sum += (int)ch;
}
} while (ch != ESC);
system("pause");
return 0;
Объяснение:
Program pr1;
uses crt;
var
n:byte; // Размерность массива
i:byte; // Счетчик массива
a:array[1..30] of real; // Массива чисел
P:real; // Произведение чисел
Begin
clrscr;
write('Введите размерность массива: ');
readln(n);
writeln('Введите ',n,' элементов');
// Блок ввода
for i:=1 to n do
readln(a[i]);
// Блок вывода
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:6:1,' ');
writeln;
readln;
// Блок инициализации
P:=1;
for i:=1 to n do
if(a[i]>P) then
P:=P*a[i];
readln;
writeln('P= ',P);
End.
Возможно я не так понял задание, но вот
#include <iostream>
#include <string>
#include <conio.h>
#define ESC 27
using namespace std;
int main() {
char ch;
int sum = 0;
do {
ch = _getch();
if (ch == ESC) {
cout << "Output of the program:\n" << sum;
putchar('\n');
} else {
cout << ch;
sum += (int)ch;
putchar('\n');
}
} while (ch != ESC);
system("pause");
return 0;
}
Объяснение: