Program z567;
Var a: array [1..30] of integer;
b: array [1..20] of integer;
i,max,p,min:integer; s:real;
Begin
for i:=1 to 30 do
a[i]:=random(10)-5;
for i:=1 to 20 do
b[i]:=random(10);
for i:=1 to 30 do
write(a[i],' ');
p:=1;
for i:=1 to 30 do
if (a[i] > 0) then p:=p*a[i];
writeln('');
writeln('1-ое задание: ', p);
for i:=1 to 20 do
write(b[i],' ');
max:=b[1];
for i:=2 to 19 do
if (b[i] > max) then max:=b[i];
min:=b[1];
for i:=2 to 19 do
if (b[i] < min) then min:=b[i];
s:=(min+max)/2;
writeln('');
writeln('2-ое задание: ', s);
End.
/
Welcome to GDB Online.
GDB online is an online compiler and debugger tool for C, C++, Python, Java, PHP, Ruby, Perl,
C#, VB, Swift, Pascal, Fortran, Haskell, Objective-C, Assembly, HTML, CSS, JS, SQLite, Prolog.
Code, Compile, Run and Debug online from anywhere in world.
/
#include <stdio.h>
#include <iostream>
#include <math.h>
int main()
{
int x=0;
std::cin >> x;
int tmp = round(sqrt(x));
if (sqrt(x) == tmp && tmp % 2 != 0){
std::cout << true;
}
else{
std::cout << false;
}
return 0;
}
И так, нам надо создать массив чисел и заполнять его числами вводимых с клавиатуры. Значит мы должны использовать цикл for для ввода чисел, и так же для увеличения каждого числа на 8.
...
Вот код:
const n = 3; //Сколько чисел вводить
begin
var numbers: array [1..n] of integer; //Объявляем массив чисел
for var i := 1 to n do readln(numbers[i]); //Считываем числа n раз
for var i := 1 to n do numbers[i] := numbers[i] + 8; //Увеличиваем каждое число на 8
writeln(numbers.JoinIntoString(', ')); //Выводим числа
end.
...
Примеры:
Ввод: 1, 2, 3
Вывод: 9, 10, 11
Ввод: 0, 5, 7
Вывод: 8, 13, 15
...
Если не сложно нажми " " ;)