Точная задача по Техническому Заданию: var x,y:integer; begin writeln('введите два числа'); readln(x); readln(y); if (x<1000000001) and (y<1000000001) and (x>0) and (y>0) then writeln('сумма чисел =',x+y) else writeln('диапазон чисел неверный'); end.
Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу: var x,y:integer; s:string; begin randomize; writeln('взять ли числа случайными? ответ да или нет'); readln(s); if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin x:=random(1000000000); y:=random(1000000000); writeln('сумма чисел =',x+y); writeln('произведение чисел =',x*y); end else begin writeln('введите два числа'); readln(x); readln(y); writeln('сумма чисел =',x+y); writeln('произведение чисел =',x*y); end; end.
Важное замечание: Программа будет работать только при компиляции компилятором, поддерживающим стандарт C99.
#include <stdio.h>
#include <stdlib.h>
int compare(const int* A, const int* B); // компаратор для qsort
int main()
{
int N;
printf("Введите размер массива: ");
scanf("%d", &N);
int
arr[N],
sum = 0,
number = 0;
for(int i = 0; i < N; i++)
scanf("%d", &arr[i]);
for(int i = 0; i < N; i++)
printf("%d ", arr[i]);
printf("\n");
for(int i = 0; i < N; i++)
{
if(arr[i])
sum += arr[i];
if((arr[i] % 3 == 0) && (i % 2 == 0))
number += 1;
}
qsort(arr, N, sizeof(int), compare);
for(int i = 0; i < N; i++)
printf("%d ", arr[i]);
printf("\nСумма положительных элементов = %d\n\
количество элементов, имеющих четные порядковые номера и являющиеся нечетными числами = %d", sum, number);
return 0;
}
int compare(const int* A, const int* B)
{
return *A - *B;
}
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.
Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;
s:string;
begin
randomize;
writeln('взять ли числа случайными? ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.