snow8646
?>

1)используя логические операции запишите высказывания истинное при соблюдении условия только одно из сидел x и y отрицательное

Информатика

Ответы

tolyan791
1) var a:array [1..10] of integer;
i:integer;
begin
writeln('Генерируем массив со случайными числами');
for i:=1 to 10 do begin
a[i]:=random(100)+1;
write(a[i],' ');
end;
writeln;
writeln('Выполняем действие');
for i:=1 to 10 do begin
if (i mod 2 = 0) then a[i]:=0 else a[i]:=a[i]*3;
write(a[i],' ');
end;
readln;
end.

2) var a:array [1..10] of integer;
i,k:integer;
begin
writeln('Генерируем массив со случайными числами');
for i:=1 to 10 do begin
a[i]:=random(100)+1;
write(a[i],' ');
end;
writeln;
writeln('Выполняем действие');
k:=a[1];
a[1]:=a[10];
a[10]:=k;
for i:=1 to 10 do write(a[i],' ');
readln;
end.
murza2007

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

#include <conio.h>

#define CELLS 10

#define COLS 50

int main(void) {

srand(time(NULL)); /* for "visible" random */

 

int array[COLS][CELLS];

 

int i;

int j;

 

for (i = 0; i < COLS; i++) {

 for (j = 0; j < CELLS; j++) {

  array[i][j] = 1 + rand() % 10 - 1; /* random 1 through 9 */

  printf("%d ", array[i][j]);

 }

 

 printf("\n");

}

 

getch();

printf("\n");

 

int valid = 0;

 

for (i = 0; i < COLS; i++) {

 int max = 0;  

 

 printf("sum of [");

 

 for (j = 0; j < CELLS; j++) {

  if (j < (CELLS - 1)) {

   printf("%d ", array[i][j]);

  } else {

   printf("%d] = ", array[i][j]);

  }

   

  max += array[i][j];

 }

 

 printf("%d ", max);

 

 if (max % 7 == 0) {

  valid++;

  printf("[%d / 7 = %d]\n", max, max / 7);

 } else {

  printf("\n");

 }

}

 

printf("\namount: %d\n", valid);

 

getch();

 

return 0;

}

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

1)используя логические операции запишите высказывания истинное при соблюдении условия только одно из сидел x и y отрицательное
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Yeremeev
kiravalter1998697
olga0909196323
balabinatanya7174
muraveiynik
novkatrina
Kalashnikova
sensenagon50
sandovo590
qwqwweqw3
Надежда-Андрей930
tomogradandrey
julichca68
ustinovda14
beliaeva2